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Suimnary 


This manual contains details for the program ISCON, an 
abbreviation for "Inter acting Supersonic Configuration". The 
programmer will find an accompanying User’s Manual necessary to 
execute test cases. 


The work was accomplished by Bell Aerospace Textron under 
contract NASl-13986 with the National'^ Aeronautics and Space Ad- 
ministration, Langley Research Center, Hampton, Virginia. 

The program was written in Fortran IV for the CDC 6^00/ 
6600 series computers at NASA, LRC. 
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INTRODUCTION 

This manual describes the computer program in support 
of the problem to generate a numerical procedure for the determi- 
nation of unsteady aerodynamic forces on arbitrary interacting 
wings and tails in supersonic flow. See Reference 1. 

The information presented here is geared to the program- 
mer. It is sufficient to fully describe the program logic and the 
required peripheral storage. Figure 1 gives an overview of the 
entire program, and is the basis for the control program. A 
separate section is devoted to the definition of external files. 
Program limitations and convergence criteria are discussed. 
Individual subroutine write-ups are presented along with the 
complete Fortran source listing. 

All User oriented information is contained in the 
ISCON User's Manual. For a presentation of input format and test 
case results this manual should be consulted. 
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Section 1 


Computer Program Plow 

Figure 1 illustrates the computer program flow of the 
ISCON program. The program is divided into two phases - mesh 
generation phase and solution. 

Mesh Generation Phase 

This phase reads and processes all inputj generates the mesh^ 
prints the grid and determines dynamic storage area constants. 

The downwash coefficients are computed hy LOOPW for all 
frequencies and computes wake effects if desired. 

Solution Phase 

In the solution phase^ each frequency is selected for 
solution. 

The downwash is generated for each mode hy using DIAG and 
ITRATE. Wake effects are iterated if present. The output is 
displayed and the program now cycles to the next case. 


/ 
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Figure J. Computer Program Flow (contd) 
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Figure i. Computer Program Flow (contd) 
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Section 2 


External Pile Structure 


This program uses eleven (11) files during the course of operation 
The delivery version of the ISGON program defines the unit desig- 
nations with a block data statement which assigns values to COMMON 


TAPE. 

These 

may be altered if desired. 

UNIT 

NAME 

UNIT 

ID 

TYPE 

USAGE 

19 

8 

(S,P) 

Store downwash coefficients for all 
frequencies 

110 

10 

S 

Card images for 1 case, diagonal blocks 
of coefficients 

111 

11 

S 

Off diagonal blocks of coefficients 

112 

12 

(s,w) 

Wake coefficients for 1 frequency 

113 

13 

S 

Store ETA and dETA/dx 

Il4 

14 

S 

Store ETA and dETA/dx 

J9 

9 

S 

Time Print BCD tape 

115 

15 

(S,P,W) 

Wake Element effects for 1 frequency 

15 

5 

P 

Standard Card input 

16 

6 

P 

Standard Line Printer 

(not 

defined 




in Fortran) P Standard Plot Tape 

Where S = Scratch, W = Wake, P = Permanent 


If the restart feature is desired, then units designated 
as (P) must be permanent files. Units 112 and 115 are only re- 
quired when WAKE effect is desired. When Plot is requested, the 
standard plot tape is needed. 


page 


blank mr nm 
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Section 3 


PROBLEM SIZE LIMITATIONS 


At delivery date, this program contains the following limi- 
tations (these limitations may change): 


1. 

Number 

of 

wings 

H 

2. 

Number 

of 

sections/wing 

3 

3. 

Number 

of 

modes 

10 

4. 

Number 

of 

spans 

100 

5. 

Number 

of 

corner point s/wlng 

8 

6 . 

• Number 

of 

frequencies 

12 

7. 

Number 

elements/span 

70 

8. 

Number 

of 

elements; 



The maximum number of elements is based on the amount of 
dummy storage made available NDUM = the number of storage set 
when the program is compiled. At delivery, NDUM is set so that 
the program is capable of handling 300 elements. Since the number 
of elements is defined by the mesh generator, the mesh is gener- 
ated by the program first. Then the amount of required storage 
is determined. If enough storages are not available in the 
program, the run is terminated, and the program cycles to the 
next case . 
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Section 4 


CONVERGENCE CRITERIA 


Convergence criteria are set up in the program using block 
data statements. These constants may be changed by altering their 
value in the block data subprogram. 

1. Criteria of Convergence for both wake and potential gradient 
Iteration is used by the subroutine IRELE. This uses a norm 
type of convergence based on EPS = .01. EPS is set up in 
common block CEPS. 

2. The maximum number of iterations used for potential gradient 
Iterations in subprogram ITRATE is assigned the variable 
name ITMAX. This variable is set at 10 in the program 
delivery version. It is included in the common block ITERAT. 

3. The parameter PERC is required by LOOPW. It is used to 
improve computational economy in computing the velocity in- 
fluence matrix. PERC represents the ratio of W. ./W,. , 

X J -L -L 

that is, the ratio of far field Influencing coefficient to 
the receiving element self coefficient. This variable is 
set equal to .005 and is contained in common block PEREPS. 

FRECEDSNG PAGE BLAMK MOT FILhZP 
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Section 5 

Subroutine Write-Ups 

The main computer program COMMON blocks are defined in 
this section. These blocks are referenced by the subroutine 
write-ups which are presented alphabetically for each subprogram. 
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COMMON BLOCKS 


NAME 

VARIABLES 

DEFINITIONS 

SUBROUTINE 

REFERENCE 

BASIC 

MACH 

BEETA 

Mach Number 
SQRT (MACH2-1) 

PGEN, MECH, 

MESHCL, 

WINTGR 

CEPS 

EPS 

Convergence criteria for 
ITRATE, IRELE 

IRELE, 

ITRATE 

EEW 

XUP,YUP 

X and Y coordinates of the 
upper end of the influencing 
line 

WINTGRR, 

WVINT 


XLWjYLW 

X and Y coordinates of the 
lower end of the influencing 
line 



ERE0NE 

Logical variable set to .TRUE, 
if a line (in the right hand 
sense) has influence on a 
given receiving point 



EMIRRO 

Logical variable set equal to 
.TRUE, if the mirror image of 
the line has influence on a 
given receiving point 



RR 

Average hyperbolic radius of 
the endpoints of an influencing 
line with respect to given 
receiving point 



RL 

Average hyperbolic radius of 
the mirror image of the end- 
points' of an influencing line 
with respect to a given receiv- 
ing point 



RTR 

The product of the hyperbolic 
radii at the endpoints of an 
influencing line with respect 
to a given receiving point 



RTL 

The product of the hyperbolic 
radii at the endpoints of the 
mirror image of an influencing 
line with respect to a given 
receiving point 
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NAME 

VARIABLES 

DEPINIO?IONS 

SUBROUTINE 

REFERENCE 

PQl 

NPREQ 

CP 

Number of frequencies that ax»e 
input for the current run 

An array, a list of 30 frequency 
coefficients for each frequency 

MAINjPGEN, 

PREQW.LOOPW, 

WAKETjWINTGR 


PREQ 

A list of the frequencies input 



PREQP 

A list of modifivSd frequencies 
PREQP ( I ) =PREQ ( I ) »MACH/BEETA 



PRTE3T 

The largest modified frequency 



NTMXX 

The maximum number of non- zero 
frequency coefficients 


ITERAT 

ITMAX 

Maximum number iteratives 

ITRATE 

ITG 

IGUESS 

Guess vector indicator 

ITRATE 

K1112 

KSTll 

KST12 

Maximum element numbers for 
non-zero coefficients 

ITRATE, DIAG, 

WAKET,V/RITEO, 

WTEPHT 

MCOM 

CPTABLE 

Table of equations coefficients 
for mode polynomial 

RDMODE 

MODEF 

EM 

Storage for modal values for a 
single point 

MFUN, 

RDMODE 


DM 

Storage for values of the 
derivative of the modes for a 
single point 



X 

X coordinate of the point 



Y 

Y coordinate of the point 



J1 

Wing number that the point is 
on 



J2 

Section of WING J1 that the 
point is on 


NEXTGS 

IPLUSH 

Set equal to if an error is 
found that is serious enough 
td cause termination of run 

MAIN,INPI, 

WINTGR 
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NAME 

VARIABLES 

DEFINITIONS 

SUBROUTINE 

REFERENCE 

PARAM 

NWING 

Total number elements in 
structure 

FREQW 

RRLL 

TVW 

Transformation matrix to change 
the velocity influence coeffi- 
cients from the receiving 
point to the Influencing point 

L00PW, 

RT0I, 

WINTGR 


YRO, YLO 

Y coordinate of the receiving 
element in the system of the 
influencing element, YLO is 
in the system of the mirror 
image of the influencing 
element 



ZR 

Z coordinate of the receiving 
element in the system of the 
influencing element 



ZRZR 

ZR*ZR 



ZL 

Z coordinate of the receiving 
element in the system of the 
mirror image of the influencing 
element 



ZLZL 

ZL*ZL 


TAPE 

19,110, 
111,112, 
I13,Il^i 1 
J9,115 

File numbers set up by block 
data subprogram 

MAIN,DIAG, 

ITRATE, 

L00PW, 

TIM0UT, 

WRITE0 

TIMER 

ITIME 

Time point array 

MAIN 

VELCOM 

NMAX 

PRINT 

NWBLOCK 

NWROW 

Maximum dimension of D 
Print control 
Number blocks for ITRATE 
Number rows in block 

MftIN,DIAG, 

ITRATE 

WAKEUP 

WTES 

TREDGE 

WAKEl 

WAKE 

WAKENZ 

Array of wake effects for 
elements 

Trailing edge indicator 
Wake indicator 
Wake indicator 
Wake indicator for non-zero 

MAIN,DIAG, 

L00PW,WAKET 

WINTGR 


term 


NAME 

WVl 

WWl 


XYSCAt 


ZPDZIO 


VARIABLES 


DEFINITIONS 


NTERM Number of terms taken in the 

finite series approximation 
of the velocity influence 
expression 

V(30) Array of sidewash contribu- 

tions for up to thirty terms 

W(30) Array of upwash contributions 

for up to thirty terms 


X0,Y0,ZD The X, Y and Z coordinates of 
a receiving point 


ZDZD ZD*ZD 

SYMK Symmetry code of the wing that 

the influencing element is in 


NINSID 


XX 

YY 

XO 

YO 

BREF 

ZZZ 

ITEST 

15 

16 


A counter to tell how many 
elements in the current span, 
from the bottom up, that have 
been found to have influence 
on the current receiving point, 
so far 

X coordinate of a point 

Y coordinate of a point 

Offset value in X direction 
currently taken to be 0.0, 

Offset value in Y direction, 
curi'’ently taken to be 0,0. 

Scalar transformation value, 
currently set to 1.0 

Value of first mode input 

Set equal to 1 if mode is a 
constant for the entire grid 

Input unit numbers 
Output unit numbers 


SUBROUTINE 

reference 


WINTGR, 

WVINT 


L00PW, 

WVINT, 

WINTGR 


ZPDZ 


MAIN,READAB, 

READXY 


NAME VARIABLES DEFINITIONS SUBROUTINE 

REFERENCE 


ZFUNNY N 

Number points on structural 

ROMODE 


grid for spline 

READAB 

lERF 

Error indicator number 

ZFDZ 

B1,B2,B3 

Spline constants 


NFUNMX 

Maximum N value 
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Subroutine Write-Ups 


Name Function Page 

MAIN Main calling program 5*10 

BLOCK Define COMMON constants 5.12 

CABSO Compute absolute value of a complex number 5*1^ 

DECOM Decompose matrix for solution 5-15 

DIAG Determine matrix blocks 5.17 

ECHO Provide input deck echo print 5.19 

EPPLOT Calls LRC CALPLT plot routine to end plot tape 5.21 

EONE Generate element influence 5.22 

PGEN Generate frequency coefficients 5.23 

FREQW Determines coefficients for 1 freq. 5.25 

GETTIM Transforms CPU time to integer 5.26 

GRIDIN Reads grid input data 5.28 

INPl Reads and analyzes RUN card 5*30 

IRELE Test for convergence 5*3^ 

ITRATE Iteration equation solver 5-35 

LOOPW Evaluate ¥, Wake coefficients 5 *36 

MESH Grid for section without control lines 5.'^0 

MESHCL Grid for section with control lines 5*42 

MFUN Generate modes by polynomial 5*^^ 

MXERR Prints error messages 5*^5 

OUTPl Prints velocity potentials, pressures 5.^6 

0UTP2 Prints total lift and total pressures 5.^7 

0UTP3 Prints aerodynamic coefficients 5.^8 

PHIL Generate velocity potential 5.49 

PLOT Calls LRC CALPLT and NPRAME plot routines 5.51 
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Subroutine Write-Ups (contd) 


Name Function Page 
PLOTGD Plots aerodynamic grid 5.52 
PTGRID Prints aerodynamic grid 5.54 
RDETA Read ETA from files l4, 15 5.56 
RDMODE Read and generate mode data 5.57 
READAB Read spline coefficients 5.60 
READXY Read Structural Grid 5.62 
RSTART Reads and checks restart files 5.64 
RTOI Generates transformation matrices 5.66 
SOLVE Backsubstitution for solution 5-58 
SONS Finds influence of sections 5-70 
SONSPT Prints influence of sections 5.72 
SYMBOL Calls LRC plot routine NOTATE 5.73 
TIMOUT Time print on file J9 5.74 
TMAX Computes the maximum elements in a real array 5.76 
TRANS Transformation of coordinates 5.77 
WAKET Write wake effects on file T12 5.78 
WINGCK Check course points for compatibility 5.80 
WINGIN , Read wing input data 5.82 
WINTGR Computes W coefficients for 2 elements 5.87 
WRETA Write ETA in file II 3 and Il4 5.89 
WRITEO Write W coefficients on file 111 5.90 
WRITZ Write W coefficients in file 110 5.91 
WRITZW Write Wake effects on file 112 5-92 
WTEPNT Generate wake effects ' 5.93 
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Name 

WVINT 

ZPDZ 



Subroutine Write-Ups (contd) 

Function Page 
Evaluates equations for influence coefficients 5.95 
Evaluate model functions and derivatives 5.96 






Subroutine Name : MAIN 


purpose ; 

Ihe main organization of the ISCON program is defined here. 
See Section 1 for a description of this subprogram and 
program flow. 

Subroutine Required; 


DIAG 

SONS 

RDETA 

MESHCL 

ECPIO 

LOOPW 

WRETA 

PLOTGD 

PGEN 

MXERR 

EPPLOT 

PTGRID 

INPl 

OUTPl 

GETTIM 

RDMIJDE 

MESH 

0UTP2 

GRIDIN 

RSTART 

PHIL 

0UTP3 

ITRATE 

: SONSPT 

TIMOUT 

WINGIN 

WTEPHT 



See Section 6 for the function of each one of these subroutines. 
Files Used : 

15. I6, 19. no. in. 112, 113, Il4, J9, 115 
These files are defined in Section 2. 

Common Blocks Used: 


BASIC 

Contains 

Mach number variables 

FQl 

Contains 

frequency variables 

MXSTOR 

Contains 

maximum parameters 

NEXTCIJ 

Contains 

error control 

TIMER 

Contains 

time variable 

Pa ram 

Contains 

no. elements 

TAPE 

Conta.ins 

tape definitions 

WAKEUP 

Contains 

WAKE parameters 

VELCOM 

Contains 

itera.tion parameters 


WAKE 


Contains wake controls 


ZPDZIO 

ZPUNNY 

Calling 


Contains ECHO tape def. 

Contains mode function parameters 

Sequence ; Hone 
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1. Subroutine Name ; BLOCK DATA 

2 . Purpose ; 

Set up constants. Common blocks used in tape definitions, 
convergence criteria, print controls, iteration maximums, 
and storage limits. 

3 . Common Blocks ; 

ITERAT Maximum no. iterations 

MXSTOR Maximum storage limits 

TAPE File definitions 

VELCOM Maximum block size, print control 

^ • De^’inltions ; 

1. ITERAT ITMAX=10=maximum no. iterations for solution 

2. MXSTOR rWIKGS = no. wings = 4 

NSECTN = no. sections - 3 
NMODES = no. nodes = 10 
NSPA.KS = no. spans = 100 
NCORNR = no. corner pts. =8 
NFRQUW = no. frequencies = 12 
NEPSPN = no. element s/spa,n = JO 
WMXPDZ = no. mode storage = 300 

3. TAPE 19 = 8 

no = 10 
111 = 11 
112 = 12 
113 = 13 
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Il4 = 14 


J9 = 9 . 

• 115 = 15 

See Section 2 for file descriptions. 

4. VELCOM NMAX = maximum solution block size = 10 

PRINT = print control = 2 
5. Calling Sequence : None 
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1 . 


Function Name: CABSO 


2 . Purpose : 

Compute absolute value of complex number. 

3 . Input Arguments : 

A = complex number 

4. Output Argument : 

CABSO = value of function 

5. Subroutine User : IRELE 

6. Subroutine Used : SQRT 

7 . Calling Sequence : 

CABSO = CABSO(A) 



1. Subroutine Name ; DECOM 

2. Purpose ; 

Factorization of the matrix A into a product of a lower 

triangular matrix L and an upper triangular matrix U. 

L has a unit diagonal which is not stored. 

3 . Equations and Procedure ; 

Matrix triangular! zat ion by Gaussian elimination. See 

Algorithm 423 j "Collected Algorithms from CACM", by 

Gleve Moler. 

4 . Input Arguments ; 

N Order of the Matrix A 

NDBJ First dimension of A declared in calling 

program. If A is singly subscripted in 
calling program^ set NDIM=N. 

A On input the matrix to be factored. 

5 . Output Arguments : 

A On output A(I, J) I.LE.J contains the upper 

triangle U, A(Ijj) I.GT.J contains (I-L), 
where I is the identity matrix and L is the 
lower triangle. 

IP K.LT.N contains the row interchange 

information. IP(N) contains {-!)** (number 
of interchanges) or 0. 


6. 

Common Blocks Used; 

None 

7 . 

Error Returns; 

None 
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8 . 


Calling Sequence; 


Call DECOM(N/NDIM,A,IP) 


9. 

Input Tapes : 

None 

10. 

Output Tapes : 

None 

11. 

Scratch Tapes: 

None 

12. 

Storage Required: 

347 words 

13. 

Subroutines Used: 

None 

l4. 

Subroutine User: 

MAIN 

15. 

Remarks : 



(1) If IP(N)=0 then matrix A is singular. 

(2) Use DECOM in conjunction with subroutine "solve" to 
obtain the solution of the linear system A*X B. 

(3) Determinant (A) = IP(N)*A(1, 1)*A(2^ 2) ^ . *A(N^N) . 

(4) The row interchange information stored in IP is not 
easy to interpret. Howeverj it is used properly by 
"solve". 
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1, Subroutine Name: DIAG 


2 . Purpose : 

Process coefficient matrix for 1 frequency. 

The incore blocks are determined based on the W coefficient 
matrices stored on file 19. After decomposing, the diagonal 
blocks are stored on file 110. The off-diagonal terms are 
stored in compressed form on file 111. If wake effects 
have been computed, the wake coefficients are stored in 
compressed form on file 112. WAKENZ is set .FALSE, if no 
wake effects or else, TRUE, on return. 

3 . Input Arguments 


IF 

LRE 

NNCH 

MC 

NET 

FRQ 

NSPT 


frequency number 

logical record length on tape 19 
row number of trailing edge elements 
maximum dimension of Incore matrix 
number of elements in total system 
frequency value 
No. trailing edges 


^ • Output Arguments 


WROW 

D 

AROW 

IZ 

IP 

CWROW 

CAROW 


W coefficients work storage from file 19 

decomposed block (incore) stored on file 110 

off diagonal block stored on file 111 

non zero element numbers array 

decomposing information array 

wake coefficients work storage from file 115 

wake effects for 1 frequency stored on file 12 
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5 . Subroutines Used ; 

WRITEO 

WAKET 

DECOM 

PREQW 

6 . Subroutine User : 

Main program 

7. Calling Sequence ; 

CALL DIAG (WROW, IP, LRECL, NNCH, MC, D, NET, AROW, IZ, IP, 
NSPT, PRQ, CAROW, CWROW) 

8 . Files Used; 

19 = (input) file containing W coe'jPf 1 dents , for all 

frequencies 

110 * diagonal block, decomposed for 1 frequency (output) 

111 = off diagonal terms (output) 

115 = (input) wake coefficients 

113 = wake effects for 1 frequency in compressed form 
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1. Subroutine Name ; ECEfS 


2 . Purpose : 

To rea.d the input for a given case, and print out an echo 
check of the input data. 

3 • Equations and Procedures : 

The input deck is rea.d from unit 15, and pla.ced on unit 111 
and printed with forma.t control on unit l 6 . If an end of 
file is encountered, the subroutine sets the variable KJ 2 ^NTRL 
equal to 1 . 

4. Input Arguments ; None 

5. Output Arguments ; 

KjZfNTRL Integer variable set equal to 1 if an end of 

file is encountered on reading the input stream. 

6 . Common Blocks : 

/tape/ 

111 Unit number of file to have card images of 

input stream. 

/ZPDZI// 

J5 Unit number of input stream - card reader 

j 6 Unit number for printed output 

7 . Error Returns ; None 

8 . Calling Sequence ; 

Call ECHO(k/NTRL) 

9 . Input Tapes : None 
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10. Output Tapes ; 

111 Contains card images of input deck. 

11. Scratch Tapes ; None 

12. Storage Required ; 225 words 

13 . Subroutine Required ; None 

14. Subroutine User ; MAIN 

15 . Remarks ; 

The test for the end of file differs from IBM to CDC. Make 
sure that the correct coding is present for the correct 
ins tallatlon. 
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1 . 


Subroutine Name: EPPLOT 


2. Purpose : 

To end the plot tape on the GDC version. 

3. Equations, and Procedure ; 

GDC plot routine is called to end the tape, GALL CALPLT 
(0.0, 0.0,999). This routine replaces the IBM version of the 
GALGOMP routine EPPLOT. 

4 . Input Arguments ; 

A. Dummy argument, not used, but present to keep the call to 
the routine identical to the IBM-GALGOMP version of 
EPPLOT. (In that version this argument represents 
four characters to be printed out on the plot just 
before ending the plot tape. ) 

5. Output Arguments ; None 

6. Gommon Blocks Used : None 

7. Error Returns ; None 

8. Galling Sequence : Gall EPPLOT(A) 

9. Input Tapes ; None 

10. Output Tapes : None 

11. Scratch Tapes ; None 

iS. Storage Required : relatively very small 

13. Subroutine Required ; GALPLT 

14. Subroutine User : MAIN 

15. Remarks ; 

This subroutine is not used in the IBM version. It is replaced 
by the standard GALGOMP routine of the same name. 
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1 . 


Subroutine Name : EONE 


2 . Purpose ; 

This routine determines if an element and its mirror image 
are in the Mach cone. 

3. Equations and Procedure ; 

This routine examines the end points of a line. If either 
one end point or the other is in the Mach cone, the line is 
in the mach cone and EREONE is set equal to .TRUE. The 
mirror image of the line is found and the same test is made 
If the mirror image of the line is inside the MACH cone 
then EMIRRO is set equal to .TRUE. This routine is used 
to test only one line per call. 

4 . Input Arguments ; None 

5. Output Arguments ; None 

6 . Common Blocks Used: 


/EEW/ 

/RRLL/ 

/ml/ 


7. 

Error Returns : 

None 

8 . 

Calling Sequence: 

CALL EONE 

9. 

Input Tapes: 

None 

10 . 

Output Tapes : 

None 

11. 

scratch Tapes: 

None 

12. 

Storage Required: 

275 words 

13. 

Subroutines Required: None 

l 4 . 

Subroutine User: 

WINTGR 

15. 

Remarks : 

None 
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1 . 


Subroutine Kame : FGEN 

2 . Purpose ; 

To calculate KAPPA a.nd the frequency coefficients for each 
frequency. 

3 • Equations and Procedure ; 

For each frequency,, K, the modified frequency KAPPA is defined 
by: 

kappa = — 

\/m*m-i 

where M is the MACH NUMBER. 

(The list of frequencies is stored in FREQ,, and the modified 
frequencies are stored in FREQP) . 

The frequency coefficients are calculated from: 

== 1.0 

n = r * /KAPj^2 \ 
for J>1,, where N=J-1. 

Currently a maximum of 30 terms are taken (J=30) for each 
frequency. A check or) the exponent is made to avoid an 
exponent underflow. A: scalar, XUNDER, is defined to be - 77.5 
on the IBM machine and -292.0 on the CDC machine. This is 
close to the largest negative exponent allowed each machine. 

4 . Input Arguments : None 

5. Output Arguments : None 

6. Common Blocks Used : 

/BA^IC/ and /FQl/ 
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7. Error Returns: None 


8. Calling Sequence : Call PGEN 

9- Input Tapes : None 

10. Output Tapes : None 

11 . Scratch Tapes : None 

12. Storage Required : 263 words 

13 • Subroutine User: MAIN \ 

14. Subroutine Required ; None 

15 . Remarks ; None 
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1. Subroutine Name ; FREQW 

2 . Purpose ; 

Read one record W coefficient for all frequencies from 
file l8. Tbe coefficients for the input frequency are 
then determined and stored in AROW. 

3. Input Arguments ; 

l8 = file number containing coefficients 

NF = frequency number 

LRECL= length of file recond on file l8 

4 . Output Arguments ; 

WROW ■= work storage for coefficients all frequencies 
AROW = output coefficients record - one frequency 

5. Files Used : 

l8 = input file containing W coefficient 

6. Subroutine User ; DIAG 

7. Calling Sequence ; 

Call FREQW (I8,AR0W,WR0W,NF,LRECL) 
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1. Subroutine Name : GETTIM 

2. Purpose : 

This is a F0RTRAN routine to be used on the GDC machine 
only. It replaces an identically named system routine on 
the IBM 360-65 at Bell Aerospace. This routine calculates 
the elapsed CPU time in milliseconds and stores it as an 
integer. 

3 . Equations and Procedure : 

This routine depends on the GDC routine 0EC0ND, which 
returns the elapsed CPU time in seconds as a floating point 
number. Subroutine GETTIM multiplies this number by 1000 
and stores it in second location of an integer array, eight 
words in length. This will mimic the IBM system routine 
GETTIM . 

^ • Input Arguments : 

ITIME Integer array of length 8. 

5 . Output Argument : 

ITIME Integer array of length 8, time is put in 

second location. 

6. Common Blocks Used : None 

7 . Error Returns : None 

8 . Calling Sequence : 

CALL GETTIM (ITIME) 

9 . Input Tapes : None 

10. Output Tapes : None 

11. Scratch Tapes: None 
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12. Storage Required ; Small 


13. Subroutines Required ; 

^EC0NDa a CDC routine that gives elapsed CPU seconds. 
1^. Subroutine User : MAIN 

15. Remarks ; None 
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1 . 


Subroutine Name ; GRIDIN 


2. Purpose ; 

To read in specific grid information for one section and 
generate mesh for that section. 

3 . Procedure : 

a) GRID card is read and checked. 

b) SPAN card is read and checked. 

c) CHORD cards are read for every span. 

Cards are checked to make sure elements are not crossed. 

d) The next SPAN card is read^ along with its 
CHORD cards for every span. 

e) Next input card is read. 

4. Input Arguments : 

15 Input unit (usually card reader 5) 

16 Output unit (printer 6) 

ERROR Logical that come's in false, may be set true 

BEETA Sort (Mach*Mach-l) used to transform CORNX and CL 

NWING No. wings in structure 

NSECT Array no. sections in each wing 

LAB, ID, ED information on last card read 

(Both input and output) 

5. Output Arguments ; 

CORNX, CORNY, CORNZ X,Y, and Z coordinates of corner points 

2, 3, 4, in global system 

NSP Desired number of spans for section (Input by user) 

XYZ 4 X and 2 Y local coord, for each element of section 
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Z Z coordinate for all elements in section (from trans) 

TRS 2 by 2 trans matrix to go from local to global 

NNCH Element number (W.R.T. total structure of last 

element in span. (Used for labeling plot) 

SW Span width 

XLE Average X coordinate of leading edge per span 

NE Number of elements in section 

ICL ICL(IjJ) Code for section I of wing J 

ICL(IjJ) = -1 specified grid information is input 
here ICL is updated if another 'GRID' section 
is encountered after read present 'GRID' section 
NETSV Counter of total number of elements in structure 

6. Common Blocks Used ; None 

7. Error Returns ; 

Input cards are checked. If an error is found, ERROR is 
set equal to .TRUE, and an error message is written. 

8. Calling Sequence ; 

SUBROUTINE GRIDIN ( CORNX, CORNY, CORNZ, XYZ, Z, TRS, NNCH, SN, XLE, 

1 NSP, NE, NETSV, REPLEM, MFREQ, FREQ, 

1 NWING, NSECT, ICL, ERROR, BEETA, LBA, ID, PD, 15, l6) 

9. Input Tapes ; None 

10. Output Tapes ; None 

11. Scratch Tapes ; None 

12. Storage Required ; 1244 

13. Subroutine User : MAIN 

14. Subroutine Required ; TRANS 

15 . Remarks ; None 
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1 . 


Subroutine Name : INPl 


2 . Purpose ; 

To read and check the RUN data, card, 

3 . Equations and procedure : 

The RUN data card is read with a format of (A4 j2X,9I2,4e12.0) . 

a) A check is made to be sure that it is a RUN card. 

b) The first integer field contains the run type code and 
is stored in scalar ITRUN. 

c) The second integer field contains the plot request code. 

If there is a ’1' in this field (column 10) a plot of the 
structure is to be generated, and the logical variable 
PLOTR is set equal to .TRUE.. 

d) The first floating point field contains the mach number and 
is stored in the real variable MACH. A check is made to 
see that it is greater than 1.0. 

e) The third integer field contains the code to consider wake 
effects and is stored in the variable IWTE. 

f) The first floating point field contains the ma,ch number and 
is stored in the real variable MACH. A check is made to 
see that it is greater than 1.0. 

g) The second floating point field contains the Reference 
length and is stored in REFLEN. A check is made to be 
sure that it was not input as 0.0. 

h) The third floating point field contains the pitching axis, 
and is stored in the variable XPIN. 
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i) The fourth floating point field contains 

the element aspect ratio. This is stored in the 
variable EARO. 

4. Input Arguments : 

15 Logical unit number containing the input deck - 
usually the card reader. 

16 Logical unit number for output unit - usually the 
system printer. 

TITLE Array containing title as character information. 

LAB Input and output of character information in first 

4 columns of current input card. 

PD Floating point array 4 words long to store floating 

point fields of current input card. 

ID Integer array 9 words long to store the integer 

fields of the current input card. 

5 . Output Argument s: 

ITRUN Run type requested. 

ITRUN=1, the run is a complete execution attempt. 
ITRUNj^l, the run is a "check run". 

MACH Mach number (a floating point number), 

REPIjEN Reference length. 

XP Pitching moment axis after being normalized by 

BEETA and REPLEN. 

XPIN Pitching moment axis as input. 

PLj^TR Logical variable set to .TRUE, if plotting is 

requested. Otherwise it is .PAL^E. 
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BEETA BEETA=;^0RT(MACH*MACH~1 . 0 ) . 

ERRj^Jr ^ET T0 .true if error condition is encountered. 

EARjZf Element aspect ratio 

IWTE Code set to 0 if wake effect is not considered 

greater than 0 if wake effects are considered. 
Common Blocks Used ; 

/NEXTC^/ 

IPLU^H Set equal to 1 if run card is not found. This will 
cause the main routine to terminate the current 
case . 

Em0R RETURN^ 

See discription of IPLU^H above. 

Logical ERR^R is set equal to .TRUE, if any of several errors 
exist in reading the input. The error condition generates an 
appropriate error message. All error message format state- 
ments are numbered between 2000 and 2026. The following is a 
list of error messages in this routine. (All messages are 
preceeded by the statement ERRiZ^R IN READING INPUT) . 

a) RUN CARD I^ MIJS^^ING 0R 0UT ^RDER. RUN CARD MU^T 
IMMEDIATELY F0LL0¥ THE TITLE CARD AND BE THE ^ECjZ^ND CARD 
IN THE INPUT DECK. J0B TERMINATED. 

b) MACH NUMBER MUJ^T BE GREATER THAN 1.0. 

MACH NUMBER WA^ READ A.^ , 

MACH NUMBER WILL BE ^ET EQUAL TjZJ 2.0 IN AN ATTEMPT T0 
CHECK THE RE^T i6f THE DATA. 


-5.32- 


c ) REFERENCE LENGTH WA^ READ 0.0. THI;^ NjZlT ALLjZ^WED . 
REFERENCE LENGTH WILL BE S2iT EQUAL TiS 1.0 IN AN ATTEMPT 
Tj2^ CHECK THE RE^T 0F THE DATA. 

REFERENCE LENGTH MUi^T BE INPUT A^ A Ni2fN-ZER;2J FLjZfATING 
PjZfiNT NUMBER IN Cj^fLUMNj^ 37 THRj?5UGH 48 I^F THE RUN DATA 
CARD. 

d) 0FF-DIAG(Z1NAL PERCENTAGE, IP ENTERED, MUJ^T BE GREATER THAN 
0R EQUAL 0.0 AND LE^^ THAN 1.0. 

0FF DIAG£^NAL ¥A^ INPUT A^ . 

8 * Calling Sequence : 

CALL INPl ( 15 , l 6 , TITLE , ITRUN, MACH , REPLEN , XP , XPIN, PLjZlTR , IWTE , 
EAR0,BEETA,LAB,ID,FD,ERRjZJR) . 

9, Input Ta,pes : None 

10. Output Tapes : None 

11. Scratch Tapes ; None 

12. Storage Required ; 688 

13 . Subroutine User ; MAIN 

14 . Subroutine Required ; None 

15 . Remarks : None 
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1. Subroutine Name : IRELE 

2 . Purpose ; 

Check relative error between A and B. 

If Relative error is less than Eps, IRELE is set = 0 other- 
wise IRELE is set =1. If KRELE = 1, do not test for 
convergence . 

3- Input Arguments ; 

A = argument -^1 

B = argument #2 

KRELE code to signify former convergence 

4. Calling Sequence ; 

Function IRELE (A,B, KRELE) 

5 . Output Arguments : 

IRELE - 1 means A^ B has not converged. 

IRELE = 0 means A^ B has converged 

6. Subroutine User: ITRATE^WAKET 
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1. Subroutine Name: ITRATE 


2. Purpose ; 

Downwash equation solver using block iteration with 
successive over relaxation. See Reference 3. 

3. Input Arguments : 

19 = file containing coefficients off diagonal 

NWR = input downwash - real 
NWI = input downwash -.imaginary 
MC =" block dimension 
^ • Output Arguments ; 

GW = output solution vector 
5 . Work Storage ; 

D = diagonal block storage 
6 • Common Block : 

CEPS defines convergence 

ITERATE control variables for ITRATE 

ITG defines ELEMENT DATA on file 

TAPE file unit numbers 

VELCOM define block information 

7. Calling Sequence ; 

CALL ITRATE (19, NWR, NWI, GW, GT, MC, D, IP, DNWR, DNWI, 

RWR, RWI, NET, A, IZ, GWESS, WW) 

8« Subroutines ; 

SOLVE 

9« Used By ; 

MAIN program 
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1 . 


Subroutine Name: 


LOOPW 


2. Purpose ; 

To organize the calculation of the velocity influence matrix. 

3 . Equations and Procedure ; 

Procedure is outlined in the accompanying flow chart. 

4. Input Arguments : 

Input arguments are defined in the comment statements at the 
beginning of the routine, 

5 . Output Arguments : 

Output arguments are also listed in comment cards in sub- 
routine . 

6. Common Blocks Used ; 

/FQl/ 

/RRLL/ 

/TAPE/ 

/WAKEUP/ 

/mil/ 

7 . Error Returns ; None 

8 . Calling Sequence: 

Call LOOPW(NET,NWINa,XYZ,NSP,SYM,TRS,NNCH,NE,NSECT,ZSECT, 
ISONS, 16 , TAPES, XCEN, AREA,¥ROW, IHEGL, WTEROW, LRWTE, PERG, 

ERROR, IWTE, REPLEN ) 

9 . Input Tapes : None 

10. Output Tapes : 

Two tapes are generated in the subroutine. The first is on 
logical unit TAPES. The first record on this tape contains 
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the "restart record". This record contains the mach number^ 
number of elements, reference length, wake element code, 
number of frequencies, and a list of the frequencies. 

Following is a record for every element on the tape. 

These records contain the element number and the array of 
influence coefficients for every frequency at every 
influencing element (all other elements). 

If wake effect is requested, a second tape is written. 

This tape is defined on logical unit H5. It also begins 
with a restart record as defined above. It has a record 
only for those elements that have some nonzero wake 
coefficients. The record begins with the receiving element 
number and has a list of wake effects (complex numbers) for 
every frequency for every trailing edge number. 

11. Scratch Tapes : None » 

12. Storage Required ; 1110 words 

13 . Subroutines Required ; RTOI and WINTRGR 

14. Subroutine User : MAIN 

^5* Remarks ; Domain of Effective Par Field Elements - Contribution 
to the velocity component at a receiving point, from far 
field elements (i.e. when is large) is small. Computational 
economy can be agained by truncating the domain of 
influence, when the order of the magnitude of the influence 
coefficient Wij is less than say (E) of The parameter E 

is fixed in the program at .005 and called PERC. The 
';programmer can update this quality by changing’ the variable 

PERC in the BLOCK DATA routine. 
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Flow Chart of Subroutine LOOPW 















TEST 

^ MAGNITUDE \ 
OF INFLUENCE 
AGAINST DIAGONAL 
^ SELF INFLUENCE 


INSIGNIFICANT 


UPDATE ELEMENT 
COUNTERS, PLACING 
0.0 IN REMAINING 
ELEMENT IN THIS 
SPAN 


SIGNIFICANT 


PUT VALUE 
IN THE 
REMAINING 
ELEMENTS 
OF SPAN 
UPDATE 
COUNTER 


^ TEST IF \ 
ASYMPTOTIC 
VALUE FOR SPAN 
HAS BEEN 
. REACHED ^ 



PUT INFLUENCE COEFFICIENT 
AND POSSIBLE WAKE IN 
CORRECT LOCATION 



END OF LOOP ON 
ELEMENTS OF SPAN 


END LOOP ON INFLUENCING SPANS 


END LOOP ON INFLUENCING 
SECTIONS AND WING 


WRITE RECORD FOR 1 RECEIVING 
ELEMENT, MAYBE WAKE RECORD ALSO 


END LOOP ON RECEIVING ELEMENTS 


TEST IF WAKE WAS FOUND 


Flow Chart of Subroutine LOOPQ (Cont.) 
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Subroutine Name : ME^H 


Purpose : 

To generate a mesh (grid) for a section without control lines. 
Procedure ; 

Corner points of are input. These corner points are trans- 
formed to the aerodynamic reference system in subroutine 
TRAN^. The number of spans (strip of the wing running 
parallel to the X axis) is input. This determines the span 
width. The height to width ratio of the elements is given by 


CRATIO. 

Input Arguments ; 

CORNX;, CORNY, CORNZ X,Y, and Z coord, of corner pts . 1,2, 3, 4 

in ■ global sys tern . 

NSP Desired number of spans for section (input 

by user) . 


Output Arguments : 
XYZ 

Z 

TRS 

NNCH 

SW 


4 X and 2 Y local coord, for each element 
of section. . 

Z coordinate for all elements in section 
( from trans ) . 

2 by 2 trans matrix to go from local to 
global . 

Element number (W.R.T. total structure) of 
last element in span. (Used for labeling 
plot). 

Span Width. 
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XLE 


Average X coordinate of .leading edge per 
span . 

Number of elements in section. 


NE 

NETSV Counter of total number of elements in 

struc ture . 

6. Common Blocks Used ; 

/ba;^ic/ 

7. Error Returns ; None 

8. Calling Sequence ; 

SUBROUTINE MESH(CORNX, CORNY, CORNZ,XYZ,Z,TRS,NNCH,SW,XLE,NSP, 
NE, NETSV). 

9. Input Tapes ; None 

10. Output Tapes ; None 

11. Scratch Tapes : None 

12. Storage Required ; 459 words 

13. Subroutine User : MAIN 

14. Subroutine Required ; TRAN;^ 

. Remarks : None 


15 


1. Subroutine Name ; MESHCL 

2. Purpose : 

To generate a mesh (grid) for a section with 1 or 2 control 
lines . 

3 . Procedure : 

The procedure is similar to subroutine ME^H except that element 
size is determined by control lines. 

4 . Input Arguments : 


CORNX, CORNY, CORNZ 

NSP 

ICL 

CL(1) ,CL(2) 
CL(3),CL(4) 


X,Y and Z coord, of corner pts. 1, 2,3.4 
in global system. 

Desired number of spans for section (input 
by user) . 

Number of control lines in section. 

X coord, of first control line. 

X coord, of second control line. 


5 . Output Arguments : 
XYZ 

Z 

TRS 

NNCH 


S¥ 


4 X and 2 Y local coord, for each element 
of section. 

Z coordinate for all elements in section 
( from trans ) . 

2 by 2 trans matrix to go/ from local to 
global. 

Element number (W.R.T. total structure) of 
last element in span. (Used for labeling 
plot) . 

Span width. 
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XLE 


6 . 

7 . 

8 . 


9 . 

10 . 

11 . 

12 . 

13 . 

14. 

15 . 


Average X coordinate of leading edge per 
span . 

NE Number of elements in section. 

NETSV Counter of total number of elements in 

structure. 

Common Blocks Used ; 

/BA^IC/ 

Error Returns ; None 
calling Sequence ; 

Subroutine MESHCL( CORNX , CORDIY, CORNZ ,XYZ , Z , TRS , NNCH, SW, XLE , 
NSP^NE, NETSV, ICL, CL) . 

Input Tapes : None 

Output Tapes ; None 
Scratch Tapes ; None 
Storage Required : 829 words. 

Subroutine User ; MAIN 
Subroutine Required : TRAN^ 

Remarks : None 
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1 . Subroutine Name : MFUN 

2 . Purpose and Equations ; 

a. Generate modes by using a quadratic polynomial 

b. The coefficients are supplied by a table - CTABLE 

c. The wing number and mode number are stored in IPTABL 

d. The derivative is formed and stored in DM 

e. EM = + C^X + CyY +C^yXY + + c^yY^ 

DM = + C^yYH- 

3 ♦ Input Arguments : 

JMODE = number modes 

4. Common Blocks ; 

a . Common/MPUN/CTABLE , IPTABLE, NTABL, NPQF 
This common block contains input: 

1) CTABL ^coefficient tables 

2) IPTABL stable containing wing number and mode number 

3) NEQP =number equations 

b . Common/MODEP/EM, DM, X, Y, J1 , J2 

1) EM -mode output 

2) DM ^derivative = output 

3) X =value of x (input) 

4) Y =value of y (input) 

5) J1 =wing number (input) 

6) J2 =mode number (input) 

5 . Calling Sequence ; 

Call MPUN (JMODE) 

6. Subroutine User: RDMODE 
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1 . 


Subroutine Name : MXERR 


2, Purpose ; 

Whenever a program limit has been exceeded, this- sub- 
routine will write an error message to inform the user. 

3. Input Arguments: 


lERR 

= identifies error 

MXNO 

= program limit 

NOIN 

=: value in error 

l6 

= output tape for printing 


4. Calling Sequence : 

Call MXERR(IERR,MXNO,NOIN, l6 ) 

5. Output ; 

An error message is printed for the following parameters 
if their limit is exceeded: 

Number wiiigs 
Number sections 
Number modes 
Number spaces 
Number comer points 
Number frequencies 
Number elements/span 
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11 , 


1 . Subroutine Name ; QUTPl 

2. Purpose : i) 

To output the LIFT AND PRESSURE MOMENT PER UNIT SPAN FOR 
WING - and the VELOCITY POTENTIALS AND ELEMENT PRESSURES FOR 
WING - tables. 

3 . Equations and Procedures : 

Information is printed out in tabular form. 

4 . Input Arguments : 

Defined by comment statements at the beginning of subroutine 

5. Output Arguments ; None 

6. Common Blocks ; None 

7. Error Returns ; None 

8 . Calling Sequence ; 

call OUTPl (MACH, FREQ, JMODE.JWING, NS, NSP,SW^DLSPAN,PMSPAN, 
XP, INDXI, PRES, IPW, I6 j LINE, IMAX, NNOH, WE, TITLE, WSPT) 

9. Input Tapes : None 

10. Output Tapes : None 

11. Scratch Tapes : None 

12. Storage Required : 65O words 

13. Subroutine User : MAIN 

14. Subroutine Required : None 

15. Remarks ; None 
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Subroutine Name; 0UTP2 


1 . 


2 . 


3. 


4. 


5. 

6 . 

7. 

8 . 

9. 


10 . 


11 . 

12 . 

13. 

14. 


Purpose ; 

Print the Total Lift and Pitching Moment tables. 
Equations and Procedures ; 

Information is printed out in tabular form. 

Input Arguments ; 


16 : 

Logical unit number of output 

device 

NWING 

number of wings in structure 


TL(I, J) 

Total lift on wing I due to mode J 

TM(I, J) 

Total moment on wing I due to 

mode J 

JMODE 

Total number of modes for run 


FREQ 

Frequency 


MACH 

Mach number 


LINE 

Current line count 


LMAX 

Maximum number of lines per page 

Output 

Arguments; None 



Common Blocks Used ; None 
Error Returns ; None 


Calling Sequence ; 


) 


Call 0UTP2 (I6,NWING,XP,TL, MODE, FREQ,MACH,LINE, MAX) 

Input Tapes ; None 

Output Tapes ; None 

Scratch Tapes ; None 

Storage Required ; 260 words 

Subroutine User ; MAIN 

Subroutine Required; None 
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15. 


Remarks; None 


1 . 


Subroutine Name : 0UTP3 


2. Purpose ; 

Write the table of GENERALIZED AERODYNAMIC COEFFICIENT MATRIX 
IN A.GARD DEFINITION. 

3. Procedure i 

Information is printed out in tabular form. 

4. Input Arguments : 

l6 Logical unit number of printer 

MACH Mach number 
FREQ Frequency 

Q Aerodynamic eohfficient matrix 

LINE Current line 

LMAX Total number of lines allowed on page 

TITLE Print title information, 4 Characters per word, 

56 characters in total 

5 . Output Argument s : None 

6. Common Blocks Used : None 

7 . Error Returns : None 

8. Calling Sequence ; 

Call 0UTP3 (I6,MACH,GREQ,OMODE,Q, LINE, IMAX, TITLE) 

9 . Input Tapes : None 

10. Output Tapes : None 

11. Scratch Tapes : None 

12. Storage Required : 430 words 

13 . Subroutine User ; MAIN ^ 

14. Subroutine Required : None 

15 . Remarks: None 
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1 . 


2 . 


3 . 


4 . 


5 . 


6 . 


7 . 


Subroutine Name : PHIL 


Purpose ; Integration of velocity potentials. 

Equations and Procedure : 

The velocity potentials are integrated separately for each 
span. The equation and method is given in detail in Ref- 
erence ^1. This routine also determines the convergence 
of the velocity potentials when wake effect is considered. 
Input Arguments ; 


XLE 

XCEN 

DPDX 

NEPS 

A 


X coordinate of the center of the leading 
edge line for the span. 

X coordinates of the center of the elements 
of the span . 

Functional values to be integrated (COMPLEX). 
The number of elements per span. 

Complex constant used as exponent. 

A = (0.0, K'*M). 


CXP Complex expotentials taken at the center of 

the element. CXP(I) = CEXP (0.0,XCENLI)*K' *M) 
Output Arguments ; 

PHI Velocity potential for the span. 

PHIW This array is used as both input and output to 

test for wake convergence. On input it is the 
velocity potential of the last iteration. On 
output it is identical to PHI. 

Common Blocks Used : /WAKE/ 

Error Returns: None 
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8. 

Calling Sequence : 



Call PHIL(XLE, XCEN, DPDX, NEPS, PHI, A, CXP, PHIW) 

9 . 

Input Tapes : 

Hone 

10. 

Output Tapes : 

None 

11. 

Scratch Tapes; 

None 

12. 

Storage Required : 

914 words :i. 

13 . 

Subroutines Required: 

None 

14 - . 

Subroutine User: 

MAIN 

15 . 

Remarks : 

None 
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1 . 


Subroutine Name: 


PLOT 


2. Purpose : 

This routine positions the pen of the plotter and skips 
plot frames on the CDC version of the plotter. 

3* Equations and Procedure 

The Langley plotting routines, CALPLT and NPRAME, are 
called in place of the standard CALCOMP routine PLOT. 

4. Input Arguments 

I 

X, Y, IPEN These are the arguments of the standard 
CALCOMP routine PLOT. 

5. Output Arguments ; None 

6. Common Bocks Used ; None 

7. Error Returns ; None 

8. Calling Sequence : 

Call PLOT(X,Y, IPEN) 

9. Input Tapes ; None 

10. Output Tapes ; None 

11. Scratch Tapes ; None 

12. Storage Required ; Relatively small 

13. Subroutines Required; CALPLT, NFRAME 

14. Subroutine User : PLOTGD 

15 . Remark s ; 

This routine is not used in the IBM version of the program 
Instead, the standard CALCOMP routine PLOTS, with entry 
point PLOT is used. 
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1 . Subroutine Hame ; PLOTGD 

2. Purpose ; 

Generate a plot of each section of a wing. 

3 . Equations and. Procedure ; 

Standard GALCOMP plotting techniques are used. 

4. Input Arguments ; 

NE Number of elements in each section of the wing 

XYZ X and Y coordinates of each element (aerodynamic 
Reference System) 

NNCH Array containing last element number of each span 
NSP Number of spans in each section of the wing 

NSECT Number of sections in the wing 

TITLE 56 characters of title information. l4 words ^ 

4 characters in each word 
JWING wing number 

ZSECT Z coordinate of all elements in the section 
AR Aspect Ratio 

MACH Mach Number 

5 . Output Arguments ; None 

6 . Common Blocks Used ; None 

7 . Error Returns : None 

8 . Calling Sequence ; 

Gall- PL 0 TGD(NE 3 XYZ,NNCH,NSP, NSECT, TITLE, JWING, ZSECT, AR, MACH) 

9 . Input Tapes : None 

10. Output Tapes : None 

11. Scratch Tapes; None 
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12. Storage Required : 7^0 words 

13. Subroutine Required ; 

This routine requires the following CALCOMP routines 
NUMBER, SYMBOL, LINE, PLOT 

14. Subroutine User ; MAIN 

15. Remarks: None 
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1. Subroutine Name: PTGRID 


2 . Purpose : 

To print out the aerodynamic grid and calculate the X 
coordinate of the center of each element. 

3 . Equations and Procedure ; 

The coordinates of each point are found in the structural 
reference (or rotated structural reference) system. These are 
then printed out in tabular form along with the X and Y 
coordinates of the center of the element. The X coordinate 
of the center of the element is stored (in the aerodynamic 
system) in the array XCEN. 

4. Input Arguments : 

Logical unit number of output device. 

Array containing title information (56 characters, 
l4 words, 4 characters each). 

Mach number 
Number of Wings 

Number of sections in each wing. 

Number of spans in section I of wing J-N^P(I,J). 
Array containing the element number of the last 
element of each span. 

X and Y coordinates of the structure in the aero- 
dynamic system. 

Z coordinates of each section. 

Input reference length. 

BEETA=SQRT(MACH**2-1.0) . 


16 

TITLE 

MACH 

NWING 

N^ECT 

N^P 

NNCH 

XYZ 

Z^ECT 

REFLEN 

BEETA 
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Output Arguments ; 


XCEN X coordinates of the center of each element 

6. Common Blocks Used : None 

7. Error Returns ; None 

8. Calling Sequence : 

Subroutine PTGRID (1.6, TITLE, MACH, NWING,NSECT,NSP,NNCH,XYZ, 
ZSECT,REPLEN,BEETA) . 

9. Input Tapes ; None 

10. Output Tapes ; None 

11. Scratch Tapes ; None 

12. Storage Required : 4o6 words 

13. Subroutine User ; MAIN 

14. Subroutine Required ; None 


15 


Remarks : None 


1 . 


Subroutine Name ; 


RDETA 


2 . Purpose ; 

Read DETADX, ETA arrays from Tape II3 

3. Input Arguments ; 

113 = Tape number 

NET = number of elements 

4 . Output Arguments : 

DETADX != array on tape II3 
ETA - array on tape II3 

5. Scratch Tapes ; II3 

6 . Subroutine User ; 

Main program 

7 . Galling Sequence ; 

Call RDETA (113, DETADX, ETA, NET) 


Subroutine Name : RDMj2^DE 

2. Purpose : 

Read and define modal input. 

3 . Equations and Procedure ; 

Mode type of input is determined. (MOWING or MDPJZJlY) 

If MDPjZ^LY is presentj the coefficient of the polynomials are 
read, and the modal values and their derivatives at each 
element is found using MFUN. If MOWING data is present, the 
spline routine obtained from Robert Desmarais, is used. Cards 
from program ^^31 a-re read by subroutl'.jes 

READAB and READXY. Note that this routine is really ZPUN with 
minor changes. The next data, card is read. If it is another 
MOWING card, the above procedure is repeated. If it is a RIGM 
card, the rigid mode data is read. This is done until an END 
card is:ireached. 

4 . Input Arguments: 


NWING 

NtoT 


XCEN 


BEETA 


Number of wings in structure 
Number of sections in each wing. 

Number of elements in each section of each wing. 

X coordinate of the center of each element in the 
aerodynamic grid in the aerodynamic reference 
system. 

X and Y coordinates of the structure in the aero- 
dynamic system. 

2^QRT( MACH*MACH- 1 . 0 ) 

Reference length 
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RE ELEN 


MT 


Total number of elements. 


lAB Label on last card read. 

ID Integer field of last card read. 

15 Unit number of device containing the input deck. 

1 6 Unit number of device for printout. 

Output Arguments ; 

ETA The modes, for all modes and all elements. 

DETADX The derivative of the mode at every point. 

ERRj2^R Logical variable set .equal to .TRUE, if an error 

is encountered. 

Common Blocks Used : 

/MC0M/ 

/m^DEF/ 

/XY^GAL/ 

Error Returns ; 

The program returns the logical variable ERRj2fR equal to .TRUE, 
if an error condition is present in reading the input. 

Calling Sequence : 

Call RDMiZJDE( JMj2^DE, NUIWO, Wj^ECT, NE,XCEN,XYZ , BEETA, REFLEN, NET, 
LAB, ID , ERRi2^R , ETA, DETADX, 15 , 16 ) . 

Input Tapes : None 

Output Tapes : None 

Scratch Tapes ; None 
Storage Required : I 896 words 

Subroutines Required; 


ZFDZ, READAB, MFUN and READXY 


l4. Subroutine User; MIN 


15* Remarks ; 


None 
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1 , Subroutine Name : RSADAB 


To read in the spline coefficients used for finding mode 
information. 

Equations and Procedure: 


This reads in the surface spline, coefficients and the modal 
values as punched from program 3331- This program was 
received from and written by Robert Desmarais. The modes 
are read and used only to see if the mode is constant for 
all points in the grid. For this reason the modes and the 
spline coefficients may have the same storage unless the 
user of the routine wishes to use both the modal values at 
the structural grid and the spline coefficients. 

4 . Input Arguments : 

Z Storage to read in modal values. 

A Storage to read in surface spline coefficients. 

5. Output Arguments : 

Z Modal values for the structural grid. 

A Surface spline coefficients. 

6 . Common Blocks Used : 

/ZPUNNY/ and /ZPDZI0/ 

7. Error Returns: None 

8 . Calling Sequence ; 

CALL READXY(Z, A) 

(Note that if the modes at the structural grid are not of 
interest, Z may share the same storage as A). 


■p .6a- 




9 . Input Tapes ; 


None 


10. r - Output Tapes : None 

11. Scratch Tapes : None 

12. Storage Required ; 230 words 

13. Subroutines Required ; None 

14. Subroutine User ; RDM0DE 

15. Remarks ; 

This subroutine corresponds to entry point READZAB of the 
function subprogram ZPUN written by Robert Desmarais of 
Langley Research Center, READAB Is to be used In conjunction 
with subroutines READXY and ZFDZ. 
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Subroutine Name: READXY 


2 . Purpose : 

To read in the structural grid used for spline data. 

3 . Equations and Procedure : 

This reads in the structural grid for the spline routine. 
This is a modified version of subroutine ZPUN. It reads 
in the number of points in the structural grid and the X 
and Y coordinates of the structural grid, exactly as it was 
punched from Program ^S31. (SS31 was written by 

Robert Desmarais of Langley Research Center) . 

4. Input Arguments : None 

5. Output Arguments : 

X X coordinates of the structural surface. 

Y Y coordinates of the structural surface. 

6. Common Blocks Used : /ZPUNNY/ and /Zipzi?^/ 

7 . Error Returns 

lERP is set equal to 680 if the number of points to be read 
exceeds the maximum allowed by the program. lERP is in 
common /ZPUNNY/ 

8 . Calling Sequence 
CALL READ(X,Y) 

9 . Input Tapes : None 

10. Output Tapes : None 

11. Scratch Tapes : None 

12. Storage Required : 210 words 

13. Subroutines Required: None 
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Subroutine User: RDMODE 


Remarks ; 

This subroutine corresponds to entry point READZXY of the 
function subprogram ZPUN, written by Robert Desmarais. 
READXY is to be used in conjunction with subroutines 


READAB and ZPDZ 


1 . Subroutine Najne : Hi^TART 


2 . Purpose : 

Read and check restart tape. 

3. Equations and Procedure ; \ ; 

The first record of the "restart" ta,pe is read and compared 
against the current run. If the tape is compatible -with the 
current run, execution proceeds. If not, a table is printed 
out giving the information on the restart tape and for the 
current run. If wake elements are requested, this same test 
is made on the wake effect tape, 115 . 

4 . Input Arguments : 


MACH 

Mach number 



NET 

Total number of elements 



NEREQ 

Number of frequencies 



FREQ 

List of frequencies 



REFLEN 

Reference length 



iWTE 

Wa.ke effect code 



I8 

Logical unit number of restart 

tape 

containing 


velocity influence coefficients 

« 


115 

Logical unit number of restart 

tape 

containing 


wa.ke effects. 



l6 

Logical unit number of output device 

' • 

freqr 

Space used to read frequencies 

from 

restart tape. 

XYZ 

X and Y coordinates of elements 

• 


Output 

Arguments 




AREA Area of each element. 
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6. Common Blocks Used 


/NEXTC^/ (see Error Returns) 

7. Error Returns 

IPLU^H in OZ^MMJZJn/NEXTC^/ is set equal to 1 if either one of 
the restart tapes are not compatible with the present run. 

This forces termination of the program. The program will not 
cycle to the next case to avoid writing over the restart tape. 

8. Calling Sequence : 

Call Ri^TART(MA.CH, NET, NPREQ, FREQ, REPLEN, I¥TE, l8 , 115 , l6 , FREQR, 
XYZ,AREA). 

9» Input Tapes : 

Logical unit l8 and 115, the restart tapes. 115 is optional 
and needed only when wake is required in the current run. 

10. Output Tapes ; None 

11. Scratch Tapes ; None 

12. Storage Required ; 450 words 

13. Subroutines Required : None 

14. Subroutine User : MAIN 

15. Remarks ; None 



1 . 


Subroutine Name : RTOI 


2 . Purpose : 

This routine transforms a pair of coordinates from the 
reference system of the receiving elemen:t^^ti,p the reference 
system of the influencing system. 

3 . Equations and Procedures ; 

The point is first transformed from the receiving system 
to the reference system. This new set of coordinates is 
then put in the influencing system. The transformation 
matrix to relate the velocity influence from the influencing 
system to the receiving system is also defined. 

4 . Input Arguments : 

TR Transformation matrix to go from receiving system to 
the reference system. 

TI Transformation matrix to go from the influencing system 
to the reference system. 

YGR Y coordinate in the receiving system. 

XCR Z coordinate in the receiving system. 

5 . Output Arguments: 

ZRO Z coordinate of the receiving point in the 
influencing system. 

ZLO Z coordinate of the mirror image of the receiving 
point in the influencing system. 

6. Common Blocks Used; 

/RRLL/ 

7 . Error Returns: None 
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8. Galling Sequence; 


Call RTOI (TR,TI,YCR,ZCR,ZROjZLO) 

9. Input Tapes : None 

10. output Tapes : None 

11. Scr atoll Tapes : None 

12. Storage Required : 200 words 

13. Subroutines Required : None 

14 . Subroutine User: LOOPW 

15. Remarks : None 
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Subroutine Naj iie : SO LVE 

Purpose ; 

Solution of the linear system of equations C*X = B. 
Equations and Procedure ; 

Back substitution based on the factored form of the co- 
efficient matrix. See Algorithm 423^ "Collected Algorithms 
from CACM", by Cleve Moler. 

Input Arguments ; 

N Order of the Matrix A 

NDIM First dimension of a declared in calling 

program. If A is singly subscripted in 
calling program, SPT NDIM-N. 

A .Contains the triangular factors of the 

matrix C (as determined by subroutine "DECOM"). 
B On input, the RHS vector 

IP Vector of dimension N containing Row inter- 

change information (as determined by sub- 
routine "decom"). 

Output Arguments : 

B The solution vector 

Common Blocks Used ; None 

Error Returns ; None 

Calling Sequence ; 

Call SOLVE(N,NDIM,A,B,IP) 

Input Tapes : None 


10. Output Tapes ; None 

11. Scratch Tapes : None 

12. Storage Required : 2^9 words 

13 . Subroutines Required ; None 

14 . ' Subroutine User : 

MAIN 

15 . Remarks ; 

Subroutine SOLVE must be used in conjunction with sub- 
routine DECOM. 



1. Subroutine Name ; SONS 

2 . Purpose ; 

Determines if the elements of one section influence the 
elements of any other section. 

3 . Equations and Procedure ; 

Each section is treated as having two receiving points and 
two influencing points. The receiving points are then taken 
to be the corner at the trailing edge of the section. The 
influencing points are the corner points of the section at 
the leading edge. Each section is examined to see if any 
other sections "influencing points" have any influence on 
its receiving points. The Boolean matrix ISONS (KljK2) is 
determined such that IS0NS(KljK2)=l if section K2 has influence 
of section Kl, IS0NS(KljK2) = 0 if section K2 has no 
influence on section Kl. 

4 . Input Arguments ; 

NWING Number of wings 

NSEGT Number os sections in each wing 

CORNX 
CORNY 
CORNZ 

5 . Output Arguments : 

ISONS See Equations and Procedures section above. 

7 . Common Blocks Used: None 

8 . Calling Sequence : 

Call SONS (NWING.NSECT, CORNX, CORNY, CORNZ, ISONS ) 

9 . Input Tapes : None 

10. Output Tapes : None 
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Array of X,Y, and Z coorindates for 
the wing corner points 


11. S cratch Tapes ; None 

12. Storage Required ; 430 words 

13. Subroutine User ; MAIN 

14. Subroutine Required ; None 

15 . Remarks ; None 
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1 . 


Subroutine Name : ^^N^PT 


2. Purpose ; 

Print out a table to show if any section is influenced by 
any other section. 

3 . Procedure ; 

(see Subroutine ^jzJn^ write-up) is printed in tabular 

form. 

4. Input Arguments ; 

See write up, (Equations and Procedure Section) 
for Subroutine 
NWING Number of wings. 

N;^ECT Number of sections in each wing. 

MACH Mach number (REAL) 

l6 Logical unit number of prints. 

5. Output Arguments ; None 

6. Common Blocks Used ; None 

7. Error Returns : None 

8. Calling Sequence ; 

Call ^jZlN^PT( NWING , N^ECT, MACH, l6 ) 

9. Input Tapes : None 

10. Output Tapes : None 

11. Scratch Tapes ; None 

12. Storage Required ; 325 words 

13. Subroutine User ; MAIN 

14. Subroutine Required ; None 

15. Remarks ; None 
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1. Subroutine Name ; SYMBOL 

2. Purpose ; 

To plot character information in the GDC version of the 
program. 

3 . Equations and Procedure 

This routine calls the Langley plotting routine NOTATE. 

4. Input Arguments ; 

The input arguments are identical to either the standard 
CALCOMP routine SYMBOL or the Langley plot routine NOTATE. 

5. Output Arguments : None 

6. Common Blocks Used ; None 

7. Error Returns : None 

8. Galling Sequence ; 

Call SYMBOL (Xj Y, SIZE, CHAR, ANO.NCHAR) 

9- Input Tapes : None 

10. Output Tapes ; None 

11. Scratch Tapes : None 

12. Storage Required ; None 

13- Subroutine Required : NOTATE 

14. Subroutine User ; PLOTGD 

15. Remarks : 

This routine is only used in the CDC version of the program. 
In the IBM version, this routine is replaced by the standard 
CALCOMP routine SYMBOL. 
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Subroutine Name : TIMOUT 


2. Purpose ; ^ 

To print in tabular form the elapsed time from the last 
call to this routine. ' 

3. Equations and Provcedure ; 

Procedure is fairly obvious. Note that eight scalars are 
used to receive title information. Scalars were used 
instead of an array to permit the same routine to be used 
on both the GDC and IBM machines. Scalars were needed 
because of the different word length of the two machines. 

4. Input Arguments : 

MSEC Integer value of current 

elapsed time in milliseconds. 

A, B, C, D, E, Ej Gj and H Eight scalars used to input 4 

characters of title information 
each. 

5. Output Arguments : . None 

6. Common Blocks Used ; 

/TAPE/ 

7 . Error Returns ; None 

Galling Sequence : 

Call TIMOUT(MSEC,AjB,C,D,E,F/G,H) 


9» 

Input Tapes: 

None 

10. 

Output Tapes: 

None 

11. 

Scratch Tapes: 

None 
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12. Storage Required : 124 words 

13. Subroutine Required : ]}Jone 

14 . Subroutine User ; MAIN 

15. Remarks : 

This routine prints the time on logical unit J9 j the 
seventh scalar (integer) in COMMON/TAPE/, It is suggested 
that this output device be separate from the output device 
of the rest of the run. 
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1 . 


Subroutine Name: TMAX 


2. Purpose : 

1. Generate maximum value in array. 

!7 

2. Test each element in the array and determine whether 
it is zero relative to the maximum. 

3. Let element = 0.0 if it is relatively = 0.0. 

3. Input Requirements : 

NET := number elements in array 
A = array of real numbers 

4. Output Arguments : 

A = array which h^s been set equal to zero in those locations 
which the original element = relatively small. 

GEAR ~ maximum value 

5. Subroutine User : ITRATE 

6. Calling Sequence ; 

Call TMAX (NET, A, GEAR) 

7. Subroutine Used; CABSO 
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1 . 


Subroutine Name: 


TRANS 


2 . Purpose : 

To find the transformation matrix to transform coordinates 
from one rectangular system to another. This routine is used 
to find the transformation matrix from the reference system 
of the section to the main reference system. 

3. Equations and Procedure : 

The equations are found in Reference 1. 

4 . Input Arguments : 

XjYjZ XjYjZ coordinates of the corner points of the 
structure 

5 . Output Arguments 

XP,YP X and Y coordinates of the corner points of the 

section in the local reference system of the section 
ZC The local Z coordinate of all points in the section 

6. Common Blocks Used : None 

7. Error Returns ; None 

8. Galling Sequence : 

Gall TRANS (X, Y, Z, T,XP, YP, ZG) 

9. Input Tapes ; None 

10. Output Tapes : None 

11. Scratch Tapes ; None 

12. Storage Required : 266 words 

13. Subroutines Required : None 

14. Subroutine User : 

MESH, MESHCL and GRIDIN 

15. Remarks ; None 
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1 . 


Subroutine Name: 


WAKET 


2 . Purpose ; 

Write Wake element effects on tape 112 for 1 frequency 

3 . Input Arguments : 

FRQ = frequency 

112 .= output tape number 

IP ••= frequency number 

LRECLW ~ length of record on tape l8 

Kl ■■= number frequencies 

4 . Output Arguments : 

IZ •■= non zero elements in record 

AROW = elements selected for given frequency stored 

on tape 112 

WROW = record from tape I 8 containing wake effects 
coefficients 

NWCH = row numbers of trailing edge elements 

5 . Calling Sequence : 

Gall WAKET ( 112, AROW, WROW, IP, LRECLW, NSPT, l8, IZ,Kl,NNCH, FRQ) 

6. Files ; 

112 Output tape containing effects for 1 frequency 
l8 input tape contains effects for all frequencies 

7. Subroutines Used ; WRITZW 

8. Subroutine User : DIAG 

9. Galling Sequence : 

Gall DIAG (WROW,IF,LRECL,NNCH,MC,D,NET,AROW,IZ,IP,NSPT, 

FRQ, CWROW, CAROW) 
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10 . Common Blocks ; 

common/tape/ Defines tape storage 

GOMMON/VELCOM/ NW block and NWROW 

common/wake/ Defines wake effect controls 

COMMON/WAKEUP Defines wake effects variabiles 

11 . Files ; 

19 -^Input file containing W coefficients 
115-Input file containing Wake effects 
I10=0utput file containlAg D block compound 

■i 

Ill-Output file containing block off diagonals 
I12=0utput file containing WAKE effects 

12. Subroutines Used : 

1. PREQW 

2 . WAKET 

3. WRITER 

4 . DECOM 



Subroutine Name: 


WINGCK 


Purpose : 

Check on the validity of the corner points of a wing. 

Equation and Procedure 

The corner points of a given wing are checked in pairs. 

The leading corner point must have an X coordinate that is 
less than or equal to the trailing corner point. The 
Y and Z coordinates of the leading corner point must be the 
same as the Y and Z coordinates of the trailing corner 
point, respectively 
Input Arguments 

Input X, y, and Z coordinates of 
the wing 

Wing number, used in error message printout 
Number ipf corner points 
Logical ivnit number of output device 
Output Arguments 

ERROR Error code, set equal to .TRUE, if an error condition 
exists. 

Common Blocks Used : None 
Error Returns ; 

See Equations and Procedure and definition of ERROR above. 
Calling Argument ; 

Call WINGCK(CORNX, CORNY, CORNZ,NWING,ICN, ERROR, I6) 

Input Tapes: None 


CORNX 

CORNY 

CORNZ 

NWING 

ICN 

16 


10. Output Tapes; None 


11. Scratch Tapes ; None 

12, Storage Required : 175 words 
13* Subroutines Required : None 

14. Subroutine User ; WINGIN 

15. Remarks ; None 


Subroutine Name ; WINGIN 


Purpose ; 

To read and check the geometric input. All geometric input 
label cards with the exception of the SPAN and CHORD 
sections are read here. 

Equations and Procedure : 

Each label card is read with the same format: READ (15^1000) 
LAB.IDjPD; 1000 FORMAT ( A4, 2X, 912, 4E12 . 0 ), where ID aad PD 
are dimensional 9 &ud 4 respectively. The program then 
branches to the section that processes that label section. 
Input Arguments : 

15 Logical unit number containing the input deck - 
usually the card reader 

16 Logical unit number of the' output unit. Usually 
the system printer 

BEETA SQ,RT (MACH*MACH-1) 

REPLEN Reference length 
Output Arguments ; 

NWING Number of wings in structure 

NSECT A.rray containing the number of sections for 
each wing 

AR Aspect ratio of each wing - array 

NSP NSP(IjJ) is the number of spans for section I 

of wing J 

CORNX) The Xj Y> and Z coordinates of the corner points of 
CORNY) 

CORHZ) each wing X0RNX(I„J) is the X coordinate of corner 
point I of wing J'. 


SYM Arrayj SYM(J) is the symmetry code of wing J 

IGL Code for section I of wing J ICL(I,J) ^ 

specific grid information is input. 

ICL(IjJ) = Oj MESH generated, no control lines 
ICL(I,j) = Ij or 2, MESH generated with 1 or 2 
control lines. 

CL X coordinate of control lines for each section 

.CL(K, I,J) for section 1 of wing J. 

K - 1, and 2 for first and second coordinates 
of first control line of the section. 

K = 3j ^ for first and second coordinates of 
second control line in section. 

I¥P Print control for each wing 

ERROR Set equal to .TRUE, if an error is found. 

NEREQ Number of frequencies 

FREQ List of frequencies 

LAB Label of last card read 

ID Integer field of last card read 

FD Floating point field of last card read 

6. Common Blocks Used : None 

7. ERROR Returns ; 

Logical ERROR is set equal to .TRUE, if any of several 
errors exist in reading the input. The error condition 
generates an appropriate error message. All error 
message format statements are numbered between 2000 and 
2022. (All messages are preceeded by the statement 
ERROR IN READING INPUT.) 
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Messages a through f have to do with errors on the WING 
data card, and are preceeded by the message; 

WING DATA CARD IS INCORRECT. 

a) DATA FOR WING - WAS READ WHEN DATA FOR WING - WAS 
EXPECTED BY THE PROGRAM. 

(WING data cards must appear in consecutive order in 
the deck. Each WING data card is the first card of 
a WING data group . ) 

b) WING NUMBER MUST BE GREATER THAN ZERO AND LESS THAN OR 

EQUAL TO 4. IT WAS READ AS . IT WILL BE TREATED 

AS WING 1 FOR CHECK PURPOSE ONLY. 

c) NO MORE THAN POUR WING DATA CARDS MAY BE INPUT. 

d) THE NUMBER OF SECTIONS INPUT FOR WING IS . 

THIS IS GREATER THAN THE MAXIMUM PER WING OF 3. 

e) NUMBER OP CORNER POINTS, IS NOT CONSISTANT WITH 

THE NUMBER OP SECTION FOR WING . 

(A wing with 1 section may have only 3 or 4 corner 
points. A wing with 2 sections, 5 or 6 corner 

points. A wing with 3 sections, 7 or 8 corner points.) 

f ) SYMMETRY CODE FOR WING , IS INPU^; AS . 

SYMMETRY CODE MAY ONLY EQUAL -1, 0, OR.l,. 

g) "CORNER*' DATA, CARD IS MISSING FOR WING . 

(The CORNER cards defining a wing must immediately 
follow the WING card for that wing.) 

Messages h through 1 have to do with eerors on the 
LINE data card. a 
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They are preceeded by the following message 
ERROR ON CONTROL "LINE" DATA CARD FOR WING- . 

h) MORE THAN TWO CONTROL LINES ARE SPECIFIED FOR 

SECTION 

i) CONTROL LINES ARE NOT INPUT IN ORDER FOR SECTION 

a) CONTROL LINE IS SPECTIFIED FOR SECTION OF WING _ 

THIS WING HAS SECTIONS (CONTROL LINE IGNORED). 

k) CONTROL LINE FOR SECTION IS NOT DEFINED 

TO BE INSIDE OF THE SECTION. 

l) CONTROL LINE 2 OF SECTION IS ABOVE THE FIRST 

CONTROL LINE. (In a section with 2 control lineSj the 
leading control line must always be defined first 
and designated as control line number 1). 

m) MODE DATA IS MISSING OR OUT OF ORDER. 

n) FREQUENCY DATA IS MISSING OR OUT OF ORDER. 

o) A LABEL CARD IS EXPECTED BUT NOT PRESENT. 

CARD WILL BE PRINTED ON THE FOLLOWING LINE AND THE 
NEXT CARD WILL BE READ. 

p) ERROR ON GRID LABEL CARD GRID DATA PRESENT FOR 

WING . 

SECTION 

THIS SECTION HAS NOT BEED DEFINED FOR THE STRUCTURE. 
Calling Sequence ; 

Call WINGIN( I5.I6 jNWING,NSECT,AR,NSP,CORNX,CORNYjCONRZ, 
SYM, ICL, cl; ERROR, BEETA, IPW,NFREQ, FREQ, REFLEN, LAB, ID, PD) 
Input Tapes ; None 
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10. Output Tapes: None 

11. Scratch Tapes: None 

12. Storage Required: 2022 

13. Subroutine User : MAIN 

14. Subroutine Required : WINGCK 

15 . Remarks : None 
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1. Subroutine Na.me : WINTGR 

2 . Purpose ; 

To organize the computation of velocity influence coefficients 
of a pair of elements. 

3 . Equations and Procedure ; 

The influence of a single line and its mirror image is deter- 
mined with respect to a given receiving point. This influence 
is combined with the influence of the preceeding (lower) line 
In the spanj (if any). Subroutine EjZiNE is used to determine 
if there is any influence at all, and subroutine WVINT 
calculates the frequency independent terms. Wake effects are 
also calculated. 

4 . Input Arguments r 

X,Y X and Y coordinates of points of the influencing 

element. 

5 . Output Arguments : 

WRi^W Array of influence coefficients for all frequencies. 

6 . Common Blocks Used ; 

/EEW/ 

/exceed/ 

/PQl/ 

/EKTEST/ 

/RRLL/ 

/wake/ 

/WA'KEUP/ 

/WVl/ 

/WWl/ 


7. Error Returns ; None 

8. Calling Sequence ; 

Call WINTGR(X,Y,WRJZ^W) 

9* Input Tapes ; None 

10. Output Tapes ; None 

11 . Scratch Tapes : None 

12. Storage Required ; 1630 words 

13. Subroutine Required ; WINT 

14. Subroutines User ; L0iSP'W 

15. Remarks ; None 
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1 . 


Subroutine Naine: WRETA 


2 . Purpose of Procedures ; 

WDETAj WETA. arrays are stored on tape 113 - each mode is a 
row. 

3* Input Arguments ; 

NET - no. of elements 
JMODE= no. modes 
WDETA=: WDETA array 
WETA = WETA array 
113 •- tape no. 

4 . Calling Sequence : 

Gall WRETA (NET. JMODE. WDETA. WETA . 113 ) 

5. Scratch Tapes ; 113 

6. Subroutine User: MAIN program 
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1 . 


Subroutine Name: 


WRITEO 


2. Purpose and Procedures ; 

Test for nonzero elements in a row and store the nonzero 
elements and tbe corresponding row numbers on tape. Tbe 
record is not written if NNZ = 0. 

3. Input Arguments ; 

K '■= row numbers 

AROW ■■= array of numbers to be tested 
NET = total number elements 

4 . Output Arguments ; 

IZ ■•= array containing row numbers of nonzero element. 
ANEW=array of nonzero elements 

5 . Calling Sequence ; 

Call WRITEO (K, AROWjIZ, ANEW^NET) 

6. Scratch Tapes ; i 

111 = tape on which records are written 

7. Subroutines Required ; 

WRITZ 

8. Subroutine User ; DIAG 

9. Common Blocks ; 

/tape/ 19 , 110, 111 
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1 . 


Subroutine Name: 


WRITZ 


2. Purpose : 

Write nonzero elements of coefficient matrix 

3 . Equations and Procedures : 

WRITE (112), K,NNZ,IZ,AWEW 

4. Input Arguments ; 

111 ■- tape number 

K ~ row number 

NNZ = number nonzero element numbers 
IZ •= array of element number 

ANEW = nonzero elements of W. This array is real 

5 . Calling Sequence : 

Call WRITZ (111, K, NNZ, IZ, ANEW) 

6 . Scratch Tape : 

111 = output tape containing ANEW records 

7. Subroutine User : WRITEO 

8. Remarks : 

This subroutine is different from WRITZW because ANEW is real 
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1 . 


Subroutine Name: 


WRITZW 


2 . Purpose ; 

Write records for wake element coefficient matrix 

3 . Equations and Procedures ; 

Write (112) K;,NNZ, IZ^ ANEW 

4 . Input Arguments : 

112 •= tape number 

K = row number 

NNZ ••= number of nonzero element numbers 
IZ = array of element number 

ANEW •= nonzero elements of WTE. This array is complex. 

5 . Calling Sequence : 

Call WRITZW (112, K,NNZ,IZ, ANEW) 

6. Scratch Tapes ; 

112 •■= output tape containing ANEW records. 

7 . Subroutine User ; WAKET 

8 . Remarks ; 

This subroutine is different from WRITZ because ANEW is complex. 
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Subroutine Name: 


WTEPHT 


Purpose : 

Generate wake effect in computation of dn/dt. 

Equations and Procedures : 
dn/dt = dn/dt - 

a) IZ and W,pg are read from tape 112 

b) If the record is appropriate for the desired element j 
the nonzero terms are determined from the IZ array. 

c) is post multiplied by 0 elements and subtracted 

i; 

from DiffiT. 

d) The result from step c) is stored back on DEDT. 

Steps a), b), c), and d) are repeated for each element. 
Input Arguments: 


DEDT 

= dh/dt array 

NET 

= number of elements 

PHIW 

= 0 array of length NET 

112 

- tape containing W^^ arrays 

^TE 

= W;j,g work array - only nonzero terms 

Output 

Arguments: 


DEDT ■•= revised dn/dt 
Error Return: None 

Calling Sequence : 

Call WTEPHT (DEDT, NET, PHIW, IZ, 112, WTE) 
Scratch Tapes : 

112 - tape containing NET records. 

Each record is of form: 
KEL,NNZ,IZ,WTE. 
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9. Common Statements : None 

10. Subroutine User : MAIN 

11. Subroutines Required: None 
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1 . 


Subroutine Name : 


WVINT 


2. Purpose ; 

To evaluate the velocity influence of a line on a point. 

3 . Equations and Procedure ; 

The equations for this section are given in Reference 1. 

A Gaussian quadrature is used to evaluate the higher order 
terms of the H expressions. 

4. ' Input Arguments : None 

5. Output Arguments : None 

6 . Common Blocks Used : 

/EEW/ 

/WVI/ 

/mi/ 

7. Error Returns : None 

8. Calling Sequence : 

Call WVINT 

9- Input Tapes ; None 

10. Output Tapes ; None 

11. Scratch Tapes ; None 

12. Storage Required : 1384 words 
13* Subroutine Required : None 
l4. Subroutine User: WINTGR 


15 . Remarks : None 


1 


Subroutine Name: ZPDZ 


2, Purpose ; 

To evaluate modal functions and its derivatives, 

3, Equations and Procedure : 

This subroutine is a modified version of ZFUN, the routine 
written by Robert Desmarais of Langley Research Center, 

It calculates the modal values and the derivative for 
1 aerodynamic grid point and one mode, given the coordinates 
of the structural grid system and the surface spline coeffi- 
cients, 

4, Input Arguments ; 

X, Y Structural grid coordinates 

A Surface spline coefficients 

5, Output Arguments 

ZFUN Modal value at aerodynamic grid point 

DZDX Derivative of the function (modal value) at 

the aerodynamic grid point, 

6 , Common Blocks Used ; 

/XY^CAL/ and /ZFUNNY/ 

7 , Error Returns : None 

8, Calling Sequence ; 

CALL ZPDZ (ZFUN, DFDZ, X, Y, A) 

9, Input Tapes : None 

10, Output Tapes ; None 

11, Scratch Tapes ; None 
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12. Storage Requlped: 151 words 


13 . Subroutines Required ; None 

14 . Subroutine User ; RDM0DE 

15 . Remarks : 

This subroutine corresponds to the main entry of the function 
subprogram ZFUN, written by Robert Desmarais. It also includes 
the evaluation of the derivative done at entry point DZDX 
of ZFUN. Subroutine ZFDZ is to be used in conjunction with 
subroutines READXY and READAB. These two subroutines read 
the spline input data that is punched by program 0031, 

(Program 0031 was also written and received from 
Robert Desmarais ) . 
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Section 6 

Source Program Listings 

The source program listings for each subroutine 
are included in this section. The routines are indexed by- 
deck number. A list of deck names and numbers can be found on 
the next page. 

The program consists of 51 subprograms each with a 
unique sequence number. Columns 73 j 75 contain the "Deck” 

number and columns 76 through 80 contain the card sequence 

number for that subprogram. The first card is always 0010 

with successive increments of 10. 


iGBiSIRIMl Mee fLANK NOT FHHS3 
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Subroutine Deck Numbers 


Name 

Deck No. 

Name 

Deck No 

MAIN 

‘ 1 

PLOTGD 

26 

BLOCK 

2 

PTGRID 

27 

CABSO 

3 

RDETA 

28 

DECOM 

4 

RDMODE 

29 

DIAG 

3 

READAB 

30 

ECHO 

6 

READXY 

31 

EPPLOT 

7 

RSTART 

32 

EONE 

8 

RTOI 

33 

PGEN 

9 

SOLVE 

34 

FREQW 

10 

SONS 

35 

GETTIM 

11 

SONSPT 

36 

GRIDIN 

12 

SYMBOL 

37 

INPl 

13 

TIMOUT 

38 

IRELE 

14 

TMAX 

39 

ITRATE 

15 

TRANS 

4o 

LOOPW 

16 

WAKET 

41 

MESH 

17 

WINGCK 

42 

MESCL 

l8 

WINGIN 

43 

MFUN 

19 ' 

WINTGR 

44 

MXERR 

20 

WRETA 

45 

OUTPl 

21 

WRITEO 

46 

0UTP2 

22 

WRITZ 

47 

OUTP3 

23 

WRITZW 

48 

PHIL 

24 

WTEPHT 

49 

PLOT 

25 

NVINT 

90 



. ^ Zr*’DZ 
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51 


REPRODUCIBflJTV' Ol* ItK 
GBIOWAL PAdg M POdli 


CIS PL AY., 

.FILE 

DECK 01 


L INE 

1 

C 

HA Iv) 

00100010 

L INE 

2 

C 

CDNSTAMT POTENTIAL GRADIENT ME M UU 

00100020 

L INF- 


C 

CHANGE ST.KAGcS TO 300,70,100 FROM 200, 43 , 50 

OJ 10003U 

L INE 

A 


COMPLEX CARO, VI 1001 

00 100040 

L IN 5 

5 


COMPLEX C£, PRESOOO) 

00100050 

L INE 

6 


complex cfreu 

00100060 

L INE 

7 


complex CwRQW I 12001 

OOlOOUIO 

L INE ■ 

8 


complex cxkm 

U0100U80 

L INE 

9 


COMPLEX CXPI300) 

00100090 

L INE 

10 


complex DC WORK! 9011 

OOlOOlOU 

L INE 

11 


COMPLEX 0E0T,0P*JX 

00 LOO 110 

L INE 

12 


COMP. EX DLS,PMS,OLOAO 

OOlOOlXO 

L INE 

13 


COMP. EX OL SPAN! IJOJ fPMPSPNUOO) 

OUlOOl JO 

L INE 

lA 


complex ESWRKCdl. 

00 100140 

L INE 

15 


COMPLEX GTI3001 

00100150 

L INE 

16 


COMPLEX !i( 10,10) 

00100160 

L INE 

17 


CQMPuEX PH 1.(701 

00100170 

L INF. 

18 


COMPlEX PH-Irt(3>J0) 

00 ICO 180 

L INE 

19 


COMPLEX SWQRKC( 1671 

UO 100 190 

L INE 

20 


COMPLEX TL(4,10), TM(4,10) 

00 100200 

L INE 

21 


COMPLEX WTEI lOJ) 

001J0210 

L INE 

22 


COMP. EX wTEROWt 1200); 

00100220 

L INE 

23 


COMPLEX WTES 

00 100230 

1. IN e 

24 


COMPLEX WWI 300) 

00100 240 

L INE 

25 


REAL II3UFF 

Ou luU250 

L INE 

26 


REAL MACH 

00100260 

L INE 

27 


INTEGER PRINT 

00100270 

1 INE 

28 


INTEGER TAPE a 

00 100280 

L INE 

29 


LOGICAL ERROR; 

0010O290 

L INE 

30 


LOGICAL PLOTR' 

OOlOOJOU 

L INE 

31 


LOGICAL PLOTRl 

0O13O310 

L INE 

32 


LOGICAL TEXCD 

00100320 

L INE 

33 


LOGICAL TREDGE 

0O10033U 

L INE 

34 


LOGICAL WARE ,.WAKE1 ,WAKEN2 

00 1003 40 

L INE 

3 5 


0IM6MSIJM AR(4), ISnNS(12,12l 

uO 100350 

L INE 

3 6 


DIME') SION AREA ( 300) 

00100360 

L INE 

37 


DIMEN SION AROW ( 300) 

001003 70 

L INE 

38 


DIME'J SION C WQRK( 4529) 

OU100380 

L INE 

39 


IJIMEN SION DWORK( 3901 ) 

00U039U 

1 . IN e 

40 


DIMENSION 0(60,60) ^ IP(60), DNWRI50), DNWI(6D), RWR(60) 

, R>( I( 60 J 00 100400 

L IN E 

41 


DIMEN SION DR (300) ,01.(300) , DPDX(3D0), OEOTOOO) 

0U1O0410 

L INE 

42 


OIMEN SION EC^OR;K(n 

00100420 

L INE 

43 


DIMENSION EDC.VRK (1) 

UU1UU430 

L INE 

44 


DIMENSION EMI.SC (1) 

00 IUU440 

L INE 

45 


UlMENSION ESWRKR ( 1) 

OUIO04PO 

LINE 

46 


OIMFNSIU.N ETAI300), 0L’TA0X(30D) 

OUl J046U 

L INE 

47 


DIMENSION EwORKM (1). 

001004/0 

L INE 

48 


DIMENSION FREQR(12), 

00 10048U 

L IN E 

49 


DIMENSION I6UFF(200G) 

00 100490 

L IN E 

50 


DIMENSION ICL(3,4), CL (4,3 ,4) 

00 100500 

L INE 

51 


OIMEN SION 10(9) , FD (4) 

00100510 

L INE 

52 


DIMENSION IPw(4) 

00 100520 

L INE 

53 


DIMENSION 1/(330) 

Co 1005 30 

L INE 

'54 


DIMENSION I.TIME(R) 

00100540 

L INE 

55 


DIMENSION NE(3,4) 

00100550 

L INE 

56 


OIME<iSIJN N SECT (4), C0RNX(8,A), C0RNY(8,4), CORN/ (8,4), 

NSPI 3, 4) 00100560 


OHIGMAL PA-r ' *'■' 
(OS' POOR QUAI,' • 


L (ME 
L IN E 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L Ii'I e 
L INF 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L IME 
L INE 
I IN E 
L INF 
L INE 
L INE 
L INE 
L [NE 
L INE, 
L INE 
L IN c 
E IN E 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 


57 

58 

59 

60 
hi 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
89 
QO 

91 

92 


111 

112 

113 

114 

115 

116 

117 

118 


DiyENSION NSPW;(4J 

ni"F'jS10N SwIlOO)# XLEIIOOI »NNCH UOJI 
UIMEMSION SwJ4K( 8444 J 

DIMENSION SWlWK^I120l » 

DIMENSION SYMI4) 

DIMENSION TITLE! 241 
DIMENSION TRS(4,3,4I., 2SEET(3,4> 
DIMENSION WE TA ( 300t 10) f wD£ TA 1300 
DIMENSION WGRKMI 10601 J 
DIMENSION WROW( 3600). 

DIMENSION XCENI 3 00) 

DIMENSION XY2 (1800). 

DIMENSION XYZF0Z(3O0,3) 

C0M.MJN/8ASIC /MACH ,B EETA , KAPPA , I PRNTI5). 


00100570 
00100580 
001 J0590 
00100600 
00100610 
0U100o20 
00100630 
00 L0064U 
OOlOOtobO 
UO100660 
0U10U6 70 
00100680 
001006VO 
00 100 700 


COMMJN / FGl / NFREO, CF(12,30)» FREUI12),, FKbOP(12), FRT ES T , NTMXX 00 100 710 
CQMM3N /ITS/ IGWESS ' JO 100720 

COMMIN/MXSTOR/ N WINGS, NSEC TN,N,MOOES , NS P ANS , NCORNR, NFRUUN, NbPSPN 00100 7 30 

1 iNMXFDZ 00100740 

C MAXIMUM NWIN3S =4 0010U750 

C MA XIMUM NSECTIONS =3 UU10U760 

C MAXIMUM NMODES =10 00 100770 

C MAXIMUM NSPAINS =50 00100/80 

C MAXIMUM NCCRNER PTS = 8 C0LOO7V0 

C MAXIMUM NFRE0UENCI6S = 12 UOluUSOO 

C MAXIMUM fNELEMENTS / SPAN =40 00100810 

CDMMDN / NEXTGS / IPLUSH 001UU820 

CQMMJN/PARAM/ net 00100830 

COMMON / PEREPS / PERC 00100840 

CUMMIN /TAPE/ 19, 110,111, 112, 113, 114, J9, 115 00100850 

CDMMDN /TIMEP / I TI ME 00100860 

COMMON /VELCOH/ NMA X , PRI NT , NW8LCK , NWROwI 20 ) 00100670 

C3HM3N /WAKE/ ITWM, ITW, ICNvGW, EPSW, JCNVGW.LRWTE ,IWTb 00100880 

CO'^MJN /WAKEUP/ WTES(12), TREDcE ,WAKb I ,WAKb , WAKtNZ 00LOUQ90 

COMMON / ZFDZIO / J5, 06 001uU900 

C0.MM3N /ZFUNNY/ N,IERF, 81,H2, B3,NFUNMX 00 100910 

EQUIVALENCE ( AROWI 1 ) .CAROWID) 00100920 


93 

EQUIVALENCE I MSEC, 

I TI ME (2) 

) 


00100930 

94 

EQUIVALENCE (CWJRK 

( U 


NE ( U ) 

00 100940 

95 

EQUIVALENCE IC WORK 

! 13) 

t 

NSP(l) ) 

UU 10 0 9 50 

96 

EQUIVALENCE (CWQKK 

( 25) 

f 

SYMIl) ) 

U0100960 

97' 

EQUIVALENCE (CWORK 

! 2 9) 


AREA(l) ) 

00 1009 70 

98 

EQUIVALENCE! CWiORK! 

329 J 

f 

XCEN 

( II ) 

00 100980 

9 9 

EQUIVALENCE (i C WORK! 

62 9 ) 

t 

XL6 

! LI ) 

00100990 

100 

EQUIVALENCE! CWORK! 

72 9 ) 

f 

SW 

! 1) ) 

OU 10 1000 

lOl 

EQUIV.ALENCE ( CwORK! 

H2 9 1 

f 

NiNCH 

( 1) ) 

OOlUlOU) 

10 2 

EQUIVALENCE! CWORK! 

92 9 ) 

t 

WRGW 

( 1 ) ) 

0010 1020 

103 

EQUIVALENCE! CW0RK(4529 ) 

f 

ECWDRKll), ) 

00101030 

10 4 

EQUIVALENCE! DC WORK! 

1 ) 

f 

DLSPAN(l) ) 

00101040 

105 . 

EQU (VALENCE !DCwURK! 

101 ) 


PFPSPN(l) ) 

00101050 

106 

EQUIVALENCE (DC WORK! 

201 ) 

f 

PRES 

m ) 

00101060 

107 

EQUIVALENCEiDC WJPK! 

501 ) 


WTE 

(1) ) 

00 10 lU 70 

108 

EQUIVALENCE (DC WORK! 

601 ) 


ETA 

! 11 ) 

00101080 

109 

EQUIVALENCE (DC WORK! 

751 ) 


OETAOX(l) ) 

00101090 

110 

EQU (VALENCE !0C WORK! 

901 1 


cDCwRK!!) ) 

UOlOllUU 


EQUIVALENCE (DWORKd), DCWORK(l)) 
EQUIVALENCE ( DWQRKIi), ESWRKCm) 
EQUrVALENCEIDwORKl 1) ,0 U) ) 
EQUIVALENCE (DwaiK(366l I , ONWRIl) I 
EQU IVALEMCE IDwOlKI 3721) , DMWl(l) ) 
EQUIVALENCE (DwORKI 3781) , KwR(I) ) 
E.JUIVALENC£{DwORK(384i) , RWIQI ) 
EQUIVALENCE ( SWOP K U 1 , SWORKR (D) 

ORIGINAL PAGS IS ’ 

OF POOR QUALI'rf 


00 iJi 110 
00 101 120 
00101130 
OOiOl 140 
0010 1 IbU 
00101160 
00 U) 1 1 70 
00 10 1 180 
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L INE 

119 


euuivalence 

i Siv .'KKIU 1 ',1,04 KN (1 >J 




00101190 

L INE 

120 


E.JUIVUENCE ( 

SrtJi'Kl 12 01 ). StVLKKCm 


1 


O0iU1200 

L IInE 

l?l 


LOU I VALENCE 

(Sajrkc m , qu) ) 




00 101210 

L INE 

122 


ENU I VALENCE 

( S'.yJRKC I ion , p -. icn • ). 



OU lU 1220 

1 INE 

123 


ejuivalence 

IS'a'OkKCI 171 ), PHlU 

( 

11 

> 

UOl J 1230 

L INE 

12-% 


EOUIVALENCE 

ISkvOKKCi 4 71 ). OE''Ai 

( 

1) 

1 

00101240 

L JNE 

125 


eouivalence 

ISls JRKCI 7 71 ) , 'TS. -,. 

( 

11 

1 

00101250 

L INE 

126 


EOUIVAL ENCE 

(SWJRKC 110 71 J CXP 

{ 

n 

1 

00101260 

L INE 

127 


ejuivalence 

( SWJKKC ( 1371 If WW 

( 

n 

1 

UU 10 1270 

L INE 

128 


equivalence 

( S/JOts RC U671J ESWRKCd ) I 



UUIO 1280 

L INE 

129 


EJUIVALENCE 

( SnURkR (1 I , DR <1 ) I 




00101290 

L INE 

130 


eUUIVALENCF 

(SWJRKRI 3 01 ), 01 


11 

1 

OU1013UU 

L INE 

13 1 


EOUIVAL ENCE 

ISwORKR ( 601 ) » 17 


11. 

I. 

00 101310 

L INE 

132 


EJUIVALENCE 

(SwOFKRI 901 If AROf< 


11. 

1. 

00 1 J 1 320 

L INE 

133 


EJUIVALENCE 

(SnORKR<1201 1 , ESwRrLR 


u 

) 

00101330 

L INE 

13 4 


EOU I VALENCE 

(TAPLSfi 91 




00 101340 

L INE 

135 


EQUIVALENCE 

{wDKKMd 1 ,AR d 1 




00101350 

LINE 

136 


EQUIVALENCE 

Um'DR KM (5 1 fCL d 1 




00101 360 

L INE 

137 


equivalence 

dVJRKrd53 I ,FD (1 1 




001U13 70 

L INE 

138 


TtOUIVALENCE 

(WORKM(57 1,10 III 




001013 80 

L INE 

139 


EQUIVALENCE 

(W0RKM166 1,1 CL 11 1 




00101390 

L INE 

140 


EQUIVALENCE 

(wORKM(78 1 ,TRS d 1 




00101400 

L INE 

141 


EQUIVALENCE 

(wnRKM(126 1 fCORNX d ) 




00101410 

L INE 

14 2 


EQUIVALENCE 

(WJRKM1158 1 fCORNY d I 




00101420 

L INE 

143 


equivalence 

(wUTKMI 190 1 fCURNi d ) 




00101430 

L INE 

144 


EQUIVALENCE 

( t^0RKM(222 1 ,I SONS d 1 




00101440 

L INE 

145 


EQUIVALENCE 

<W3RKM{366 1 ,/SECr < 1 1 




0U1J1450 

L INE 

146 


EQUIVALENCE 

(W3RKMI3 78 1 ,EM1 SC d I 




O01U146O 

L INE 

147 


E.JUIV4LENC6 

(W3RKMI 4011, XYZdJI 




00 1014 70 

L INE 

148 


EJUIVALENCE 

( wORKM 12201 ) , WTEROW 

m 

I 

00101480 

L INE 

149 


EQUIVALENCE 

(rtJRKH (4601 1, WETii 


(11 

1 

00101490 

L INE 

150 


EJUIVALENCE 

(WORKM <7CU1 1, WUCTA 


(11 

1 

00101500 

L INE 

151 


equivalence 

(wORKM 1106011, 6W0RKM 

(11 

1 

00 101510 

L INE 

152 


EtjUIVALENCE 

(WROWIII, XYZFDZdII 




00 101520 

L INE 

153 


equivalence 

d3UFF(ll, WETA dll 




0010 1530 

L INE 

154 


DATA 13/6/ 





00101540 

L INF 

155 


DATA 15, 16 

/ 11, 6 / 




00101550 

L INE 

156 


DATA L.MOQE 

/ 4HMD0E / 




00101560 

L INE 

157 


DATA I TITLE / 4HTITL / 




00 1015/0 

L INE 

158 - 


DATA LMAX 

/ 62 / 




0010 1580 

L INE 

159 


DATA TWQPI 

/ 6. 2831 85303 / 




00 ,.01 590 

L INE 

160 


DATA XP / 0 

.0 / 




00 101600 

L INE 

161 

C 






0010161U 

L INE 

162 


J5 = 15 





00 101620 

L INE 

163 


J6 = 16 





UU10162U 

L INE 

164 


PLOTTrla .FALSE. 




00101640 

L INE 

165 


4 CO.NTIvNUE 





00101650 

L INE 

166 


IER« =0 





00101660 

L INE 

167 


CALL ECHO (KONTRU 




U0101670 

L INF 

168 


IFIKJNTRL *EQ. 1) GO TO 10 




OUI016UO 

L IN E 

169 


PLOTT - .FALSE. 




00101690 

L INE 

170 


I FLUSH = 0 





OOlUl /OO 

L INE 

171 


NETSV =0 





00 10 17 10 

1 ING 

172 


CALL GETTIM 

I ITIME 1 




00 lUl 720 

L IN E 

173 

c 

SECTION 

TQ READ AND WRITE INPUT 

DAFA 


UU101730 

L INE 









1 / ^ 

U 







L INE 

17 5 

c 






OOlOl 750 

L INE 

176 


ERROA = .false. 




00101/60 

L INE 

177 


RKEX = 0.0 





UO 101 7 70 

L INE 

178 


NTMAX = 1 





00 iO 1780 

1 . IN E 

179 


NCVEL = 0 





00 LOl 790 

L INE 

180 


TEXCO = .FALSE. 




OUlOldOO 
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•K.e?}{uUUUU3Z!JTy of THJ3 

OBiOiNAL PAGE fS POOIS 


LINE: lai 
LINE 132 
LINE 183 
LINE 184 
LINE 135 
LINS 18 6 
LINE 187 
LINE 188 
LINE 189 
L INE 190 
LINE 191 
LINE 19 2 
LINE 19 3 
LINE 194 
LINE 19 5 
L INE’ 19 6 
LINE 197 
LINE l‘^0 
LINE 199 
LINE 200 
LINE 20 1 
LINE 20 2 
LINE 20 3 
LINE 20 4 
LINE 20 5 
LINE 206 
L INE 207 
LINE 208 
LINE 209 
LINE 210 
LINE 211 
LINE 212 
LINE 213 
LINE 214 
LINE 215 
LINE 216 
LINE 217 
LINE 218 
LINE 219 
L INE 220 
LIME 221 
LINE 222 
LINE 223 
LINE 22 4 
LINE 225 
L INE 226 
LINE 2 27 
LINE 228 
LINE 229 
LINE 230 
LINE 231 
LINE 232 
LIME 2 33 
LINE 234 
LINE 235 
L IN E 2 '3 6 
L IMF 237 
LINE 238 
LINE 239 
L INE 240 
L IN E 24 1 
LINE 242 


C t?EAO( 5, 1006 I TITLE 

6 CjMTI.NUE 

HEAD { I5,10C6, END =10> LAbEL, TITLE 
CDC kEADI. I5tL006) LA3EL, njLE . . 

CDC IF( EOFIlb) ) 10,8 

CDC 8 aiNTLNUE 

IF ( LA3EL .NE . I TI TLE ) , . 10 6 

WRITE! !o, 2006 ) TI TLE “ 

C NWING MU. V.INGS (BETWEEN lANO 4) 

C 

CALL INPK I5f 16, TITLE, ITRUN, MACH, REFL6N, XP, XPIN, PLUTR, 
1 I.WTE.hARO, SEETA, LA8 , ID, FI), ERROR ) 

I F ( (FLUSH .NE . 0 ) GO TO 500 
C 

GALL WINGINI 15, 16, NWI N3 , NSECT, AK.NSP, CORMX, CORNY, CURM2, 

1 SYM , ICL, CL, ERROR, BE6TA,. IPW, NFREU, FREQ, 

2 REFLEN, LAB , ID, FD ) 

G 

C MAIN 158 

IFINWINGS .LT.NWING ) GO TO 610 


c 

c 

r 

GENERATE 

AERO 

GRID 






c 

NET 

TOTAL 

NUMBER 

OF 

E LE ME NT S 

I N 

THE 

STPUCTJRE 

c 

NEW 

TOTAL 

NUMBER 

OF 

E LE ME NT S 

IN 

THE 

WING 

c 

N SP T 

TOTAL 

NUMBER 

OF 

SPARS I N 

A 

M I NG 



NSPT = 1 


NET 0 
C 

IFIPLOTRl PLOTRl =. TRUE. 

CDC REPLAiCES 

CDC IFIPLJTPII CALL PSEUDO 

IF( PLDTR ) CALL PLOTS! I BUFF , 3000' ) 
C LOOP ON WINGS J 

C NWBL3K =0 

03 20 J = 1,NWING 
C 

N5PW = 0 

NEW = 0 

NS = NSECT! J) 

[F(N5ECTN .LT. NS I GO TO 620 
C 

C LOOP ON SECTIONS OF EACH wl NG I 


ooloiaio 

UOl J1B2U 
DU 10 18 30 
UU U) 18 40 
001 01 850 
00101 dtO 
00 10 18 (0 
00 lu IdbO 
00101390 
00101900 
00 10l9i.0 
00 101920 
00 10 1930 
0UIU19‘*0 
00101950 
00101960 
00 10 1970 
0010 1980 
00 101990 
00102000 
00102010 
00 102020 
00 10 2030 
UO 102040 
00102050 
00102060 
UO 10 2 0 70 
00 1U2U8U 
00102090 
00102100 
00102110 
UO 10 2 120 
0U1U2130 
00102140 
00102150 
00102160 
uU 10 2 170 
00 10 2 I BO 
00 102190 
00102200 
00102210 
00 LJ2220 
00 102230 


DO 19 1 = 1, NS 


INDEX TO FOUR CORNER PQI.NTS THAT DEFINE THE SECTION 


; JCN 

JCN - 1 

N INDEX = 6^^ ! NE TCNE W). C 1 

: BRANCH TO CORRECT MESH GENERATING ROUTINE 

IF! ICL! I,J) ) 15, 16, 17 

15 CALL GRIDIN! CORNX! JCN , J» , CORNY! JCN ,J) ,CURMZ I JCN, J » , XYZ!NINDEX 

1 ZSECT!I,J), TRS(l,I,J), N NCH I NS PT , Sl',!NSPT>, XLE!NSPr», 

2 NSP!I,J), NE!I,J), METSV, REFLEN, NFKEW, FREO, 

3 NWING, NSECT, ICL, ERROR, BEEF A, LAH, ID, FU, 15, 16 

GO T3 18 

16 CALL -lESH ( C OR NX ( JCN , J) , C ORNY ( JC N , J I ,CC1RNZ ! JCN , J I , XYZININUEX 

1 ZSECT(l^J), TRS!1,I,J), NNCM(.N5PT), SW(NSPT), XLEINSPT), 

2 'iSPtlfJI, NE!I,J), METSV, FARO ) 

GO T3 18 

17 CALL MESHCLI CORNXl JCN , J» , C URNY ( JCN . J) ,CURNZ ! J CN, J I , XYZlNlNDEX 

1 ZSECT!I,J», TRS!1,I,J), NNCH(NSPr), SWINSPD, XLblNSPTI, 


00102240 
00102250 
00102260 
DO 10 2 2 70 
00 102280 
00102290 
001J23C0 
00102310 
), JO 102320 
00 102330 
U01U2340 
)0Oiu2J5O 
00102360 
), 00 10 23 lU 
UO 102380 
00102390 
UO1024C0 
I, 00102410 

M. I 1 M -> A 



?. NSP(I,J», Nctl.J), NETSV, ICUI.JJ, CUliL.Jl, EAUU I 

C 3 NTI.N Ut 

NSP^ = NSPW fi NSPn.»J» 

NSPT = NSPT & NSPd ,J» 

N cW NEW &• NE ( 1 »J 1 

END LOOP ON ScCTIOimS OF W»NG ‘ •• "’-1’ 

CDN'TlHUh 

MNDEX b^'NET & I , ,v' 

JCN NO.-IEER OF CUNER POINTS T i-' i ‘CFINE THE WING 

JCN 4 2 =^(NSECT( G 4 ’ ’ 

IFINCORNR .LT. JCN ) GO TO 650 
IM = NSPT-NSPW 

IF( PlOTR ) CALL PL0T30I NEdtJI, XY 2^1 NINDEX ) , NNCHIIMI, NSPIl.J 
I NSECT(J), TITLE. J. ZSfcCTd.JI, AK, MACH ) 

NSPWGI J I = NSPW 
NET NET & NEW 

END LOOP ON WINGS 
CONTI.\iUE 

IFINFROUN .LT. NFREO) GO TO 560 
IF( PLOTR ) CALL ENOPLT 

NSPT = NSPT - 1 

IFINSPANS .LT. NSPT I GO TO 640 
WRITE! 6 , 1014 I ( NNCHin, 1 = 1 , NSPT ) 

WR ITE( 6 , 10 15 » ( SWd I , I =1 , NSPT ) 

WRITE! 6 , 1015 > ! XLE II ) , 1 = 1 , NSPT ). 

, forma T ! /// ! 101 8U 

5 FORMAT! // ( / 5 E 12.4 » I 
GENCT- 4 TE NwROW AND NWBLCK 
NMAXD = NMA X 
NWBLJK =0 
ISUM=MNCH! U 

00 1720 13 = 2 , NSPT 

ISUML= [SUM 

lOIFF = NNCH (Id)- NNCHdB-U 

1 SUM = I SUM G lOIFF 

IFIISUM .LE. NMAXD) GO TO 1020 

NW 3 L 0 K = NWBLOK &1 
NWROW !NWBL 0 KI. = I SUMl 
ISUM = IDIFF 
) CONTLNUE 

NWBLDR = NWBLOK Cl 
NWROW (NWBLOK) = ISUM 

CALL PTGR ID! 16 , TI TLE .MACH.NWI NG , NSECP, NS P , NNCH, XYZ. ZSECT, 

1 REFLbN, 6 EETA, XCEN I 

CALL SONS TO DETERMINE I SONS ( K 1 ,K 2 ) = 1 IF SECTION K 2 HAS 
INFLUENCE ON SECTK'N Kl , GTEKWISE ISONS I K 1 , K 2 )=0 
CALL SDNS! NwINJ, NSECT, CORNX, CORNY, CORNZ, ISONS ) 


CALL 

CONTI MUE 


SONSPT! I. SONS, NWING, NSECT, MACH, 16 )' 


CALL GETflM ( I TIME ) 


L IMF 30 5 
LINF 306 
LIME 30 7 
L IME 303 
L IMF 309 
L INE 310 
LIiME 311 
LIME 312 
LIME 313 
LINE 314 
L IME 315 
LIME 316 
LINE 317 
LIME 318 
LIME 319 
L InE 3 20 
LINE 321 
LINE 322 
LINE 323 
LIME 324 
L INE 325 
L INE 3 26 
LINE 527 
LINE 328 
L INE 329 
LINE 3 30 
L INE 331 
LINE 332 
L INE 333 
L IME 334 
LINE 3 35 
LINE 336 
LINE 337 
L INE 338 
LIME 339 
LIME 340 
LINE 341 
LINE 342 
LINE 343 
LINE 344, 
LINE 345 
LIME 346 
LINE 347 
L INE 3 48 
L INE 3 49 
LIME 350 
LINE 351 
LIME 352 
L IME 553 
LINE 3 54 
LIME 35 5 
L INE 356 
LIME 357 
LINE 358 
L INE 359 
L INE 360 
L INE 361 
LINE 362 
L IME 363 
LINE 36 4 
L INE 365 
L INE 366 


WRIT5IJ9, 4001 } 00 103050 

4001 r-ORMATI UU» 5X,7HSECTIUN,30X,16HCPJ SECjN'JS US F D » 5X , 9 HI Of AL CPU , / / I Oj 1 J3060 
C 0U1U3U/0 

CALL riMOUKMSEC ,4HK0A0 ,4H ( mu m,vhMO G,4 HLNER , 4HAI E , 4HGR I U, 00 1 0 3u80 

I 4H ) UU103U90 

C 00 10 3100 

call FGEN • •• OUIU’3110 

LRECL = NET'i'NPREO ' ‘ 00 103 120 

C 00103130 

C 00 10 3140 

C 00103150 

C IF THERE IS ONLY ONE FREOUbNCY, AMD IT = D.D, SET NTE= 0 00103160 

LRWTE - I 00103WO 

IF( NIFREQ .EQ. 1 .AND. FREUIl) . E'O. 0.0 » IWTE = 0 OOIJ318U 

1F< I.WTE .ME. 0 ) LRwTE = NSPT-'NFREO 00103190 

ITWM = IWTE UO 10 3200 

IF( IWTE .EQVA) ITWM = 1 00103210 

IF< ERROR ) GO TO 60 00103220 

IF! ITRUN .ME. I ) GO TO 60 00103230 

C WRITE! 6,3002). I WTE ^ I TWM 00103240 

C 00 103250 

CALL LUOPW ( NET, MWING, XYZ, NSP, SYM, TRS, NMCH, NE. 00 103260 

1 NSECTr ZSECT, ISONS, 16, TAPF8, XCEN, AREA, WROW, LRELL, 00 1032/0 

2 WTEROW, LRwTE, P6PC , ERROR , IWTE, KEFLEN), . 001032BO 

C 0010 3 290 

CALL GETTIM ( I TIME ) 00103300 

CALL TIMOUTIMSEC .4HFIND ,4H I NF ,4HLUEN,4HCE C ,4H0EFF, 4H IC I £, 4 HNT M, 00 103310 
1 4HArR.I. 00103320 



C 


C 

110 


C 

c 

c 

c 

c 

c 

c 


c 


c 


c 


IF( TEXCD ). WRITE! 16, 1021 ) NT MAX, 
WRITE! 16, 1022 ) NTiMAX, RKEX 
GO T3 110 

CONTINUE 

IF! I TP UN .ME . 3 ) GO TO 110 

CALL SUBROUTINE TO READ RESTART 
CALL RSTART! MACH, NET, NFREQ, FRED, 
1 FREOR, XYi, AREA ) 

CONTINUE 


U0103330 

NCVEL, RKEX, FHTEST 00 103340 

Ou 103350 
00103360 
001033/0 
0UI0338O 
00 10 3 90 

TAPE 00103400 

REFLEN, INTb, tapes, 115, 16, 00103410 

00 103420 
00103430 
0010 3 440 

001U3450 

00103460 


READ MODE I.NPUT 001034/0 

HGOE CARD HAS BEEN READ 00103480 

CALL ROUTINE TO READ MOOES I N UNNORMALI ZED STRUCTURAL REF. SYST .00 10 3490 

00103500 

001O351O 

WR ITE( 16, 2006) TITLE 001U352U 

IF! LAB .ME. LMUDE ). GO TO 132 00 103530 

0010 3 540 

CALL RDMOOEi JMODE , NWI NG , NSECT, ME, XCEN, XYZ, BEET A, REFLEN, 00 10 3550 


1 NET, LAB, 10 , ERROR ,WF TA ,Wl;E TA ,15 , 16 ,.XYZFDZ !1 , 1 ) , X YZ FUZ ! 1, 2 ) , 

2 XYZFQZ! i, 3)., NMXFOZ,I£RR) 

IF! TERR .NE . 0) GO TO 680 
IF!NI.)OES .LT. JMOUE) 30 TO 630 
IF! J -lUDE .EQ. 0 I GO TO 500 
IF! IFLUSH .EO. 1 ) GO TO 500 

CALL GETTIM ! ITIME ) 

CALL TIMOUTIMSEC ,4HREA0,4H ANU,4H PRn,4HCESS ,4H MD0,4HE IM,4HPUI 
I 4H ) 


UO 103560 
0U1O357O 
00103580 
00 103590 
00103600 
00 10 3610 
UOIU362U 
00 1 J3630 
00 10 3 640 
00103650 
0J103660 


-0 . 



L FJE 

36? 

C 


00103670 

L INE 

363 

C 


Oo1vj3 6EO 

L JNE 

369 


IFl LIRUN .EO. 3 I GO 10 132 

00 103690 

L INE 

3 70 


IF! I.TkUN .EO. i I GO T.> .12 • 

00 103 700 

L I.N E 

371 


WKITEI 16, 3031 ) 

00103 710 

L INE 

372 


IF( P.LQTR I rtRI.TEI 1 6,303.i ) 

00103/20 

L INE 

373 


GO 13 4 

00 lu3 7 30 

L INE 

37^ 

132 

CDNTI.MUE 

00 10 3 740 

L INF 

375 


IF( -NOT. ERROR' i GO 10 135 

00103750 

L INE 

376 


WR 1 1E( 16, 3033 ) 

00103760 

L INE 

377 


GO TO 4 

UOIOj 770 

L INE 

378 

135 

CONTINUE 

00 103 7E0 

L INE 

279 


CALL .^RETA ( NE T , JM0D5 , WOE TA , WtTA, I 13J. 

00 103790 

L IN E 

380 


CALL WR6TA ( NE 1 , JMUOE , WOE 1 A , WEIA, 114) 

00103800 

L IN E 

3S1 

C 


00103810 

L IN’E 

382 

c 


00103820 

L INE 

383 

c 


00 103830 

L INE 

384 

c 


00 103840 

L INE 

385 

r 


•00 103850 


1 

L INE 

386 

c 


00103860 

L INE 

387 

c 

LOOP ON FREQUENCIES 

001038/0 

L INE 

388 

c 


00 103860 

L INE 

389 


DO 300 IF=1,NFR;EQ 

00 10 3890 

L INE 

390 

c 


00103900 

L INE 

391 

c 

SET LINE .EQ. LMAX C 1 TO FORCE NEW PAGE WITH FREQ. HEADING 

00 10391O 

A. INE 

392 


L INE = LMAX 6 1 

00103920 

1 INE 

393 

c 


00 103930 

1 'IN E 

394 

c 


00 10 3 9 40 

L INE 

395 


FRO ^ FREOIIFI 

00 103950 

1. INE 

396 


CFREO = CMPLXIO. 0,-FRC/8EETAJ 

00103960 

L INE 

397 


XKM FREQP { IF)4=f-'ACH 

GU1039 70 

L INE 

398 


CXKM = C.NPLXI 0.0, XKM ) 

00 10 3 9 80 

L INE 

399 


MC =NNAX 

00 103990 

L INE 

400 


CALL OIAG( WROW, IF, LRECL ,NNCH , PC ,D ,NET , AROW , IZ , I P, NS PI ,FRO, 

00104000 

L INE 

401 


1 CAROW, CwROW 1 

00104010 

L INE 

402 


CALL GETTIMI I TIME I. 

00104020 

L INE 

40 3 


WRITE! J9, 3025J 

00 104030 

L INE 

404 


CALL TIMOUTIMSEC ,4HR;EAD,4H AND,4H DEC,4H0MP0,4HS E C,4H0EFF,4H. MA, 

00 104040 

L IN E 

40 5 


1 4HTRIX ) 

00104050 

LINE 

406 

c 


00104060 

L INE 

407 

c 

FIND POSITIVE EXPONENTIAL 

0010 40 70 

L INE 

40 8 


DO laa 1=1, NET 

00 104080 

L INE 

409 


FBZ = XCEN! I )*XKM 

00 10 4090 

L INE 

410 


CXP(L) = CMPLX! COS(FBZ), SIN(FBZ) ) 

00104100 

L INE 

411 

163 

CON TIN UE 

00104110 

L INE 

412 

C 


00104120 

L INE 

413 

c 

ZERO OUT GENERALIZED COEFFICIENTS ( Q I. 

00 104130 

L INE 

414 


DO 16'5 I=1,JM0DE 

00 10 4 140 

L IN E 

415 


nn lo5 J=1,JMOOE 

00104150 

L INE 

416 

16 5 

I,J J = (0.0,. 0.0); 

0U104160 

L IME 

417 


REWIND 113 

0Ul04i 70 

L INE 

418 

C 


00 104 180 

L IN E 

419 

c 

LOOP ON PRESSURE MODES 

00 104190 

L INE 

420 

c 


00104200 

L INE 

421 


00 230 JM = l,JMODE 

00104210 

L INE 

422 

c 


00104220 

L INE 

423 

c 

SET LINE=LrMAX TO FORCE NEW PAGE F CR JM . GT . 1 

00 10 4 2 30 

L INE 

4 24 


IF! JM .GT. 1 .AND. LINE . NE . (LMAX Cl) ) LINE=LMAX 

00 104240 

L INE 

42 5 


ITW=0 

00104250 

L IME 

426 


IF(FR) .EQ. 0.01 JCNVGW = NET 

00 104260 

L INE 

42 7 


CALL ROETA ( I 13 ,0E TAD X ,E TA , NE T) 

0010 4 2 70 

L INE 

428 


DO 16 7 1=1, NET 

00104280 


- 6 . 9 - 



fiM-ODUCIBrLJTy OF THE 
GRlGiNAL PAGE IS POOH 


L IN8 

<^29 

C 


CALCULATE DEOT EiJR ONE FPEVUBNCY AND ONE MODE 

001U42S0 

L I.'JE 

430 



DEOTI n.=CMPLX (DETAUXdl, h EfAU)) « 

CXP! I) 

001043CO 

L INt 

431 

C 


DEOTII) = CMPLXl DETAOXM , J.l) , Ekj<‘ETA1I, 

J'^l UCXP(l) 

OU 1J4 31U 

L IN E 

432 



PHIWI 1 », =0.0 


UU IU4320 

L If^E 

433 


167 

CONTINUE 


UU 1 J4330 

L IN6 

434 


169 

continue . . ' , 


001 J4340 

L INE 

435 



IC\VG/V=0 •, . ■ 

' - * 

00104350 

L INb 

436 



JCNVOW = 0 


UU1U43A0 

L INE 

437 

C 


WRITE! 16, 2010 I NDBOT 

■V' 

UU 10 4 3 lU 

L INE 

423 

C 


wRITEI 16, 3008 ) IE. EKtOd* V. • i. 


OU lU4ibO 

L INE 

439 

C 


' • ■ i’ 


00104390 

LINE 

440 

C 




U01U44UO 

L INE 

441 



nu 170 I = 1, NET 


Ou 1U44 lU 

L INE 

442 

C 


WHITE! It), 2009 ) DEDTd ) 


UU 1U4420 

L INE 

443 



DRI I) = DEOT! I ) 


0U1O443U 

L INE' 

444 



DI ! I ) = A IMAG ! DEDTd » » 


0U10444U 

L INE 

44 5 


170 

CONTIdUe 


00104450 

L INE 

446 

C 


WRITE! 16, 2010 ) N0P3X 


OU 10 44 60 

L INE 

44?' 

C 


WRITE! 16, 2009 ) DPOXII) 


00 1044 TO 

L INE 

448 



on 17 2 I = 1,NET 


00104480 

L INE 

449 



CAB SI - SORT! OR (II *<‘2 6 DU U. 2) 


00104490 

L INE 

450 



IF ICABSl.NE. 0.01 30 TO 178 


00 IU4500 

L INE 

451 


172 

CONTINUE 


UU 1U4510 

L INE 

452 



03 174 1=1, NET 


00 10 4 520 

L INE 

452 


1 74 

DPDX! I ) =0.0 


00104530 

L INE 

454 



GO T3 131 / 


00104540 

L INE 

455 


178 

CONTINUE 

00104550 

L INE 

456 



WR ITE! 16, ?0271 


00 104560 

L INE 

457 

3027 

FORMA T! Ihilf'lSX,. SBHSOLUTION FDR DOWNWASH 

USING ITERAI ION J 

00 1045/0 

L INE 

458 



IF! WAKENZ I I3WESS=0 


00 1045B0 

L INE 

459 



1F( «>JUT. wAKENZ) IGWESS=0 


00104590 

L INE 

460 



IF! I.WTE .BD.O) IGwhSS = 0 


00104600 

L INE 

46 1 



IF ( I.TW .EQ . 0) IGWESS=0 


00 104610 

L INE 

462 



CALL ITRATEI Lll,DR,DI, OPDX, GT ,.MC,D, 

I P,UNwR,DNWl,RwR,RW I, 

00 104620 

L IN E 

46 3 



1 NETfAROWfIZ ,DPDX,WWI 


OU L04630 

L IN E 

464 


lai 

CONTINUE 


U0104640 

L INE 

465 



CALL GETTmiJIMEI 


00104650 

L INE 

466 



CALL T K-iOUTlHSEC ,4HS0LV,4HE F0,4HR PC,4HTENr ,4HI AL , 4HGRAD, 4H I LN T 

, 00 10 4 660 

L IN E 

46 7 



1 4H I 


0010 46 70 

L IN E 

463 - 



DO L80 1=1, NET 


00104680 

LINE 

469 



DPDX! I ) = DPDX! I) /C XP ID 


00104690 

L INE 

470 


180 

CONTINUE 


00104 lOQ 

L INE 

471 

C 




00 10 4/10 

L INE 

472 

C 


LOOP ON WINGS AND SPANS 


00 104/20 

L INE 

473 

C 




0U10473J 

L I^J E 

474 

c 


N SP I IS SPAN COUNTER 


00 104740 

L INE 

475 



NSP I = 0 


00104/50 

L INE 

476 



INDXR = 1 


UU 10 4 7 60 

L INE 

477 



00 240 J=1,NWINS 


00 10 4 7 10 

L IN E 

470 

c 




Ou 104 /80 

L INE 

479 



TLI J, JM 1 = ! 0. 0, 0. 0 I 


U01U4 /90 

L INE 

480 



TT!J,JHI = ! 0.0, 0.0 J 


00104800 

L INE 

48 1 



INDXI, = INDXR 


00 104810 

L INE 

482 



NSPW = NSPWO!J) 


UU 10 4 8 20 

L INE 

48 3 

c 


WRITE! 16, 300 7 1 


00 10483U 

L INE 

434 

c 




00104840 

L IN E 

485 

c 


LOOP ON SPANS IN WI N3 


00104850 

L IN E 

486 



DO 220 ISP = 1, NSP W 


UU 10 4860 

L INE 

437 

c 




UU 1U48 /U 

L IN £ 

488 



■N SP I = N SP I C 1 


00104880 

L INE 

489 



NEPS = NNCH(NSPI) - INDXR 6 1 


00 LU 4 8 90 

L INE 

490 



IF!NEPSPN .LT. NEPS ) 50 10 670 


00104900 


- 6 . 10 - 


L IfJF 

491 


C4LL PHIL! XLE (NSPI ) ,XCEMI MIHk} ,UP0XI I NOXkI ,NFPS , Piil., CXKM, 

00 104910 

L IMF 

49 2 


1 C<'*(1NjxU» PHlUUNOXi^n 


-JD 1-D4 920 

L INfc 

49 3 


IF{ I .E i .0.0) GO TO 1 82 


UJ 104930 

L I.'JE 

494 


IFI L-.IE .EO .C) GO ro 1 32 


00104940 

L U.'E 

49 6 


IF( .'J )T. wAKE ) GO TO id2 


00104950 

L INF. 

496 


IFI.'J.jr. WAKENZI GO TO 182 


00 10 49 60 

L IN F 

49 7 

182 

CONTIMUE 


001049/0 

L INE 

493 

C 

W3 ITE ( 16, 3002 1 J , I SP ‘ " 


00 1J498U 

L INF 

49 9 


OL S = I 0.0, 0.0) 


0UIU4990 

L INE 

609 


PNS =1 (0.0, O.u) 


00 10 6000 

L INF 

601 

C 



00 1J6010 

L IN E 

502 

C 

LOOP ON NU-18ER OF ELEMENTS IN SPAN ISP 


00106020 

L INt 

50 3 


00 219 IE=1,NEPS 


0U1O6030 

t INE 

504 


PRES(.INDX-<) = (0P0XIIN9XR) L CF RE 0* P-H I ( I E ) J-t'TWQPI 


00106040 

L INE 

50 5 


DLCA9 = PRES(INJXR)-?AREAIINDXR) 


001J6060 

L INE- 

50 6 

C 

WRITE! 16, 3003 ) INOXR, PHI (IE), PRES(INOXR), OLUAC 


00 lu60 6U 

L INE 

507 

• 

DLS ^ OLS 8 DLOAD 


001060 to 

L INE 

508 


PMS PHS 8 ( XP - XCEN(INDXR). I'i'DLOAO 


00106080 

L INE 

509 


INOXR = INOXR 8 1 


00106090 

L INE 

510 

c 

ENJ LOOP ON ELEMENT IE OF SPAN ISP 


00 10 6100 

L INE 

51 1 

210 

CONTINUE 


00106110 

L INE 

512 

c 



00105120 

L INE 

513 


OLSPAN(NSPI) = DLS/SW(NSPI). 


00106130 

L INE 

514 


PMPSPM(NSPI) = PMS/SW(NSPH 


00 U6140 

L INE 

615 

c 

WRITE! 16, 3004 ) DLSPAN(NSPI), PMPS PN( NS PI.) 


00 10 5150 

L INE 

516 


TL(J,.JMJ = TLIJiJA) 8 OLS 


0010 5160 

L INE 

617 


TM(J,JM» = TMU.JM) 6 PMS 


001061 10 

L INE 

518 

c 



001061SU 

LINE 

619 

c 

END LOOP ON SPAN ISP OF WING J 


0010 6190 

L INE 

520 

220 

CONTI.NUE 


00106200 

L INE 

521 

C 

WRITE! 16, 3005 ) TL!J,JM|^ TM(J,OM) 


00 106210 

L INE 

522 

C 



U010622U 

L INE 

523 


IF! I,PW(J) ,EQ. 0 ) GO TO 240 


00106230 

L INE 

524 


IF (L^TE.EQ. J) GO TO 230 


00 106240 

L INE 

525 


IF! .IvlOT. WAKE) GO TO 230 


00106250 

L INE 

526 


IF! .NOT. WAKENZ) GO TO 230 


00106260 

L INE 

527 


WR ITE !I6, 3040) I TW 


00105270 

L INE 

528 

23 0,;, 

"'GON T i,N U£ 


00 105280 

L INE 

529 

'i 

CALL JUTPl! MACH, FRQ , JM , J ,NSEC T ! J) , NSP(1,J), SW, 

DLSPAN, 

00105290 

L INE 

530 


t PMPSPN, XPIN.INOXI, PRES, IPW,. 13, LINE, LMAX, NNCH, 

NE! i, J ), 

00105300 

L INE 

531 • 


1 TITLE , PHI W, NSPT ) 


00 10 6310 

L INE 

532 

c 



00105320 

L INE 

533 

c 

END LOOP ON WINGS J 


00106330 

L IN E 

53 4 

240 

CONTINUE 


00 106340 

L IN E 

535 


IP! I.WTE .EQ.O) GO TO 245 


00106350 

L INE 

536 


IF! ( I rWM .EO. ITW) .OR. (JCNVGW. EQ.NET)), GO TO 245 


00106360 

L INE 

537 


1F( .-\10T. WAKE ), GO TO 245 


0010 6 3 70 

L INE 

538 


IF! .NOT. WAKENZ) GO 70 245 


00 105380 

L INE 

639 


REWIND 112 


0010 6 3 90 

L IN E 

540 


ITW =. irw8l 


00106400 

L INE 

541 


CALL WTEPHT! OEUT, NET, PHIW.IZ, 112, WTE) 


UO 106410 

L INE 

542 


GO T9 169 


00 106420 

L INE 

543 

C 



00106430 

L INE 

54 4 

245 

CONTINUE 


00106440 

L INE 

545 

C 



00106460 

L INE 

54 6 

C 

LOOP ON DISPLACEMENT MODE 10 CALCULATE 0 


00106460 

L INE 

54 7 

c 



UU1U6470 

L INE 

54 8 


REWIND 114 


00105980 

L INE 

549 


DO 2 70 IM=l,J.MQnE 


00 1U6490 

L INE 

550 

c 

READ ETA FROM 114 


00 10 5 600 

L INE 

551 


CALL ROE lA ( I 1 4 ,DE TAD X ,E TA , NE T) 


OO 106610 

L INE 

562 

c 

LOOP OVER ALL ELENFNTS -3Y WINGS 


0UIU662U 
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L I.NE 

55 3 


o 

It 

X 

no 105530 

L INE 

55''« 


DO 2-60 J=itNWIi'^G, 

UJ IJ 55iU 

L KM F 

5 5 5 


SYMCJ'I = 2.0 

UJ1U5550 

L INE 

55b 

C 

SYMME T8Y :.OOE S'^'^.CCN 0E<-INtD .r- 

UU105360 

L INii 

55 7 


IF( SYMUJ .EO. 0.0 > SYNCEK = l.J 

001 )55 /O 

L IN£ 

558 


NS = NSEC n J j 

0ul055d0 

L INE 

559 


NEW 0 _ 

0U1U5590 

L INE 

560 


DD 265 1 =1, NS 

OU105600 

L INE 

561 

265 

NEW =? NEW C NEU ,J) ,t ‘ . 

OUl.JbclO 

L IN E 

562 


DO 250 IE = l,NEw . f 

00 105620 

L INE 

56 2 


INCXW = IiMOXR Cl ’ 

00105620 

L INE 

56^ 


DLQAJ = PkE SI INiJ X(U=i'AP.EA (J NOXRI S\ 'ON 

UU 10 5640 

L INE 

565 


0(IM»JM) = 0(IN,JN) C ETAd NDX(-^«Di:uA0 

0U105650 

L IN E 

566 

250 

CONTI.MUF 

00105660 

L INE 

567 

260 

CQNTI.'IUE 

001056 /O 

L INE 

568 

270 

CONTLNUE 

UU1U568U 

L INE 

569 

C 


00 10 5 6 90 

L INE 

570 

C 

END LOOP ON MODE JM 

00105/00 

L INE 

571 

280 

CONTINUE 

00105/10 

L INE 

572 

C 


00105720 

L INE 

573 

C 

WRITE! 16, 2010 ) NOIJ 

00 105730 

L INE 

57^ 

C 

DO 32 0 1 =1,JM0DE 

00 105740 

L INE 

575 

C320 

WRITE! 16, 3006 ) I^ ( 0 (I , J) , J=1,JMJDE ) 

00 10 5 7 50 

L INE 

576 

C 

END LOOP ON FREQUENCY IF 

00105/60 

L INF. 

577 


L INE = LMAX 

00105770 

L INE 

578 


CALL 0UTP3! 13,. MACH, FRO, JMODE, Q, LINE, LMAX, TITLE ) 

0010 5/80 

L INE 

579 


CALL DUTP2( 13, IMWI NG , XP 1 N , TL , TK, JMODE, FRQ, MACH, LINE, LMAX 

) 00105790 

L INE 

580 


CALL GETTIM { I TIME I 

UU105EU0 

L INE 

531 


CALL TIM,OUr(MSEC ,4HS0LV,4HE F0,4HR 0Q,4HWNWA ,4HS H E,4HaK 0, 4HNE 

F, 001Q5810 

t. INE 

532 


1 4 HR- HQ. J 

00 105620 

LINE 

533 

300 

CONTI.NUE 

0U105830 

L INE 

584 

50 0 

CONTI MUE 

00105840 

L INE 

585 


WR I TEH 16, 30 26 1 

OU 10 5850 

L INE 

58 6 


IF! IFRUN .EO. 3) GO TO 10 

U010586U 

L INE 

587 


WRITE !L6, 3030J. 

00105870 

L INE 

538 

C 


00105880 

L INE 

589 

c 


00105890 

L INE 

590 

c 


CUiU590U 

L I.N E 

591 


GO TO 4 

00 105910 

L INE 

592 

610 

I ER R =610 

OJ 10 5920 

L INE 

593 


CALL MXERR ! IER.R , NWINGS ,NWING , 16 > 

00105920 

L INE 

594 


GO TO 500 

00 1059 90 

L INE 

595 

620 

lERR = 620 

00105950 

L INE 

596 


CALL MXERR ! IER.R , NSECTN , NS , 16 ) 

00 105960 

L IN E 

597 


GO TO 500 

00 10 59/0 

L INE 

598 

6 30 

lERR = 63C 

00105980 

L INE 

59 9 


CALL MXERR (TERR, NMODES , JMODE , 1 6 ). 

00105990 

L INE 

600 


GO TO 500 

U01U60UU 

L INE 

60 1 

. 640 

lERR = 640 

00 106010 

L INE 

602 


CALL -1XERR ! IER5R , NSPANS ,NSPT , 16 ) 

00 106U2U 

LINE 

60 3 


GO TO 500 

00 10 6030 

L IN E 

604 

650 

I ERR = 6 50 

00 106040 

L INE 

605 


CALL MXERR ! lERR , NCORNR , JCN , 16 ) 

00 106050 

L INE 

606 


GO TO 500 

0U106U6U 

L INE 

607 

660 

I ERR = 660 

00 IU6U70 

L INF 

60 8 


CALL MXERR ! lERK , NFRQUN ,NFRE0 , Ib ) 

00 106080 

L INE 

609 


GO T3 500 

00106U90 

L INF 

610 

670 

lERR = 670 

00 10610U 

L INE 

611 


CALL MXERR HERR, NEPSPN ,NL PS , 16 ) 

UU 10 6110 

L INE 

612 


GO TO 500 

00 10 6120 

L INF 

613 

650 

I ERR =.6 8 C 

00106130 

L IN E 

614 


CALL MXERR! I.ERR', NFXMD2,N, 1 6> 

00 106140 
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L INE 615 
L IN'E 616 
L nC 6 17 
L INE 618 
L INE 619 
LINE 620 
LINE 621 
L INE 622 
L INE 623 
L INc 62'« 
L INE 025 
L INE 626 
L INE 627 
L INE 628 
L INE 029 
LINE 630 
L INE 631 
L INE 632 
LINE 632 
L INE 63^ 
LINE, ,63 5 
L INE 636 
L INE 637 
L INE 628 
LINE 639 
L INE 640 
L INE 641 
L INE 642 
L INE 643 
L INE 644 
L INE 645 
L INE 6 46 
L INE 647 
L INE 648 
L INE 649 
L INE 650 
L INE 651 
LINE 652 
L INE 653 
L INE 654 
L INE 655' 
L INE 656 
L INE 657 
L INE 658 
L INE 659 
L INE 660 
L INE 661 
L INE 66 2 
LINE 66 3 
L INE 664 
L INE 665 
L IN E 666 


GO n 500 
CDC REI>L\CES 
C 10 CUMI.NUE 

10 in RLUTRl) CALL PLOTS! I8UEE* «n40 ) 
lE(PLJTRl) CALL EEPLOTn.iEND I 
WR ITE! I6,3D28» 

3028 FORMAT! IHO//// 5X. 10(H*),5X,t- ...0 OF JOB , SX.IOIIH’*^)) 

STOP 
C 

1036 FORMA T!A4»2X» 14A4, lOAl) 

2006 FORMAT !1H1» /20X,l4A4. 10A1//I 
5025 FORMA T!1H0I 
3026 FORMA T! IHl) 

3030 FORMAT!//// 5X, 10! H*), 5X* 20HEND OF EXECUTION RON, 5X ♦ 10! IH* ) 

1 ft 5X, 10!1H^),5X, 354PKCGPAiM wl LL NUh CYCLE 10 NEXT CASE, 5X, 00106^:90 

2 10! IH* U C/U1U63UU 

3040 FORMAT! INI, 8X, 33RWAKE EFFECTS VELOCITY POTENTIALS / 3X 

1 17HI.TERATI0N NUMBER: , 112 ) 

C3004 FORMAT! / 9H LIFT/OS=, 1P2E12.4, 5X,11H MOMENT/ DS= , 1 P2E12 .4 / I 
C3002 FORMAT! 215 I 

C3003 FORMAT! IIX, 13, 31 6X, 1P2E12.4 I I 

C3005 FORMAT! /// 5X,. 4H7L = , 1P2E12.5, 5 X, 4HTM =, 1P2E12.5 / I 
C3007 F0R.MAT1// lOH WING SPAN/1 1 X , 3HE LE , IB X ,3HPH I , 27X , 4HPR ES , 26X , 4 HL 0 AO J 00 106 370 

3031 FORMAT! //// 5X, 10!1H«), 5X,l6HEN0 OF CHECK PJN, 5X , 10!1H«) // 00106380 

1 5X, 101 IH’!'), 5X, 704TU EXECUTE A COMPLETE RJN PJT A 'I* IN CULUM0ol06390 

2N 8 3F THE 'RUN* DATA CARO, 5X, 10 11H*J J 00106400 

3032 FORMAT! / 5X, 1011H-), 5X, 78HIF ANOTHER PLOT IS NOT DESIRED, PUT 00106410 

1 A 'O' IN COLUMN 10 OF THE 'RIJN' DATA CARO, 5X , lOIlH*) | 00106420 

3033 FOR.MATI/// IX, 120!1H=:=) // 5X, 10!1H*),5X, 40HR0N TERMINATEU DUE T00lJ64i0 


00106150 
00106160 
OU 1J6170 
00 10 6 180 
OJlOc 190 
0U106200 
00 ,.06210 
00 106220 
00106230 
00 106240 
00106250 
001 J6 260 
00 1062/0 
DO 106280 


00 106310 
00 10 6 320 
00 10 6 330 
00106340 
00106350 
00 106 3 60 


13 ERRORS GIVEN ABOVE, 5X, 55(1H*J // IX,. 12J!1H*» I 
ClOQO FORMAT! A4, 2X, 912, 4E12,0 » 

24X, 4E12.0 I 
IX, 'CDL = ' , 13 , 5X,. 


ClOOl FORMAT! 
C 100 3 FOmAT! 


1P5E16.5 / I 13X, LP5E16.5 ) J 


C1003 FORMAT! 3E10.0 ) 

C1009 FORMAT! 15 /!5E10.0» ) 
Cion FORMAT! 15X, A 4 ) 


00 106440 
00106450 
00 10 6 4 60 
00106470 
00106480 
00106490 
00 10 6 500 


G1021 FORMAT! /// IX, 120!H*J / 5X, 9HM0RE THAN, 13, 37H TERMS ARE NEEUOUl065lO 


lED FOR CONVERGENCE FDR, 15, 19H PAIRS OF ELEMbNTS . // 5X , 


OJ 106520 


C 

C 2 27H THE MAXIMUM RADIUS^KAPPA =, 615.4, 14H, WITH KAPPA =, E 15 . 6/ / ) 00 1U6 530 
C1022 FORMAT! // 5X, 55H THE GREATEST NUMBER OF TERMS NEEDED FOR CONV ERG00i0654O 
C 16NCE IS, 13 //5X,26HTHE MAXIMUM kADI US*=KAPPA =, E15.4 // ) OO106550 

C2007 FORMAT! 20X, IIHMACH NUMBER, F22.4 //J 00106560 

CZOOa FOP;MA n // 2DX, 21HNJMBER UF FREOJ ENCl 00 1065 /O 

C lES, 1,12 / 20X, 19HLIST OF FREOUENCIES, 5F14.4 / !39X, 5F14.4) 1 00106580 

C2009 FORMAT! 2E18.6 ) 

C20 10 FORMAT! /// 5X, 2A4 I 

C3001 FORMAT!/// 1 8H RECEL.VING ELEMENT, 15, 5X, oHNUMBER, 14, 5X , 

C 1 L0H3F SECTION, 12, 5X, 7H0F WING, 12 // !1X, 10613.4 I I 
Q3006 FORMAT! IX, 4HR0W=, 13, 4I6X, 1 PZ E 12 . 4 I / ! 3 X , 4 ! 6X , 1P2E12 .4 » I 100106630 

C3008 FORMAT! // IX, 3HFRE0. NO, 13, 8X, 6HFRE0 =,FS.4, 5X, 4HMUDE, 1 3// ) 00 106640 

C3034 FORMAT! /// 21X, I9HMUDAL DATA FOR WING, 12, 8H SECTION, 12 I 00106650 

END UUIU666U 


00106590 
00106600 
00 10 6610 
00 10 6 620 
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C IS PL AY . , 

.ML 6 

DECK 02 


L INE 

1 


BLL)C< DATA I,*, • _ \ 

00200010 

L INE 

2 


INTE3ER PkINT 

0D20UU2U 

L INE 

3 


CGNMJN /CEPS/ EPS , 

UU2UUU30 

L INE 

4 


COM.MJI / I TER AT / 1 IMA X - .j ' 

U020U04U 

L INE 

5 


CJMMJ >) /4AXE/ N 'IXE 

Oo2 JUObO 

L INE 

6 


CDMMJ-J/MXSTOR/ Nwl NGSiNScC TN,iN.‘-... J * > , NS PANS f NCCkNR, NFKOJN, NEPSPN 

UU200060 

L INE 

7 


1 , N'lXFUi 

UJ200070 

L INE 

8 


CD^'‘'1:)^I / PEREPS / PERC 

U020U08U 

L INE 

9 


COMMON /TAPE/ I 9, 11 0, U 1 1 1 12 , 1 1 3 , 1 1 A i J9 , 1 15 

0U200U90 

L INE 

10 


C3MM3^1 /VELCOiM / NMAX,PKlM, NhBLDK, NWR0W(20I 

00200100 

L INE 

11 

C 

NW1N>>S= 4 

00200110 

L INE 

12 

C 

NSECT'J= 3 

U0 20U12U 

L INE 

13 

C 

NMQOESs 10 

Oo 200130 

L INE 

lA 

C 

NSPAnJS= 100 

00200140 

L INE 

15 

C 

NCQRNR= 8 

00200150 

L INE 

16 

C 

NERQJN= 12 

00230160 

L INE 

17 

c 

NEPSP >1= 70 

00 2001 70 

L INE 

18 


DATA EPS /.Ol/ 

00 200180 

L INE 

19 


DATA ITMAX /lO/ 

00200190 

L INE 

20 


DATA I9,110»I11 /8,10tll/ 

00200200 

L INE 

21 


DATA 112/12/ 

00200210 

L INE 

22 


DATA 113/13/ 

00 200220 

L IN E 

23 


DATA 114/14/ 

00 200 230 

L IN E 

2A 


DATA 115/15/ 

0U2J0240 

L INE 

25 


DATA J9/9/ 

00200250 

L INE 

26 


DATA NMAX/60/ 

00200260 

L INE 

27 


DATA NrtI NG S, NSEC TN ,N MODE S t NS PANS tNCORNRtNFKOJN, N6PSPN 

00 /iO 0 2 70 

L INE 

28 


1 , NMXFOZ 

00 200 280 

L INE 

29 


2 / 4t3t. 10, 100, 8, 12 , 70, 300 / 

00 2-JU290 

L INE 

30 


DATA PERC / 0.005 / 

0020U30U 

L INE 

31 


DATA PRINT /2/ 

00200310 

L INE 

32 


END 

00200320 


- 6 . 14 - 


DISPL 

AY. ..FILE 

DECK 03 


t INE 

1 

FUNCTION CAB SOI Al 

U0300010 

L INE 

2 

COMPLEX A 

0U300U20 

L INE 

3 

AR = A 

OU 3UU030 

L INE 

4 

AI = AIMAGIAI 

00300040 

L INE 

5 

CABS3 = AR**2 E AI**2 

U03U00;>0 

L INE 

6 

CAB S3 = SORT (CAB SOI 

00300060 

L INE 

7 

RETURN 

00 3000 70 

L INE 

8 

END 

] 0U30U0tU 
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OMGINAI. 1 IS 

OP POOR Cl 'i- ' ' • 


DISPLAY.. 

.FILE 

DECK 04 


L IME 

1 


SUBROUTINE DEGOH (N.NOI M,A ,I PI 

00400010 

L INE 

2 

C 


00400020 

L INE 

3 

C 

SUBROUTINE DECOM 

0U40003U 

L INE 

A 

C 


00400040 

L INE 

5 

C 

PURPOSE 

00400050 

LINE 

6 

C 

FACTORIZATION OF THE MATRIX A INTO A PRODUCT OF A LOWER 

00400060 

LINE 

7 

C 

THiANGULAR MATRIX L AND AN UPPER TRIANGULAR MATRIX U. L HAS 

004JUO 70 

L INE 

a 

c 

A UNIT DIAGONAL WHICH IS NOT STOKED. 

00400080 

L INE 

9 

c 


00400090 

L INE 

10 

G 

USAGE 

0040U1Q0 

L INE 

11 

C 

CALL DECOMIN.NDI M.A.I PI 

00400110 

L INE 

12 

C 


00400120 

L INE 

13 

C 

DESCRIPTION OF PARAMETERS 

0040U130 

L INE 

14 

C 

N - ORDER OF THE MATRIX A 

00 400140 

L INE 

15 

C 

NDIM- FIRST DIMENSION OF A DECLARED IN CALLING PROGRAM. IF A 

IS0040U150 

L INE 

16 

c 

SINGLY SUBSCRIPTED IN CALLING PROGRAM, SET NDIM=N. 

00400160 

L INE 

17 

c 

A “ ON INPUT THE MATRIX TO BE FACTORED. 

00 4001 70 

L INE 

18 

c 

ON OUTPUT A(I,JJ I.LE.J CONTAINS THE UPPER TRIANGLE U, 

00400180 

L INE 

19 

c 

A(I,J) l.GT.J CONTAINS < I -L I , WHERE I IS THE 

00400190 

L INE 

20 

c 

IDENTITY MATRIX AND L IS THE LOWER TRIANGLE. 

00400200 

L INE 

21 

c 

P - IPIKI K.LT.N CONTAI NS THE RCW INTERCHANGE INFORMATION. 

00400210 

L INE 

22 

c 

IPiNi CONTAINS (-1 1 4*(NUMaER OF INT ERCHANGES I OR 0. 

00400220 

L INE 

23 

c 


004UU230 

L INE 

24 

c 

REMARKS 

00400240 

L INE 

25 

c 

(1) IF IP{NI=0 THEN MATRIX A IS SINGULAR. 

00400250 

L INE 

26 

c 

(2) USE DECOM IN CONJUNCTION WITH SUBROUTINE *SULy6® TO UBTA 

IN 0040U260 

L INE 

27 

c 

THE SOLUTION OF THE LINEAR SYSTEM A*X = B. 

00400270 

LINE 

28 

c 

(31 DETERMINANT(A) =' I P ( N» * A ( 1 ,1 1 «A ( 2 , 2 i , * A{ N, N 1 . 

00 400 2 BO 

L INE 

29 

c 

(41 THE ROW INTERCHANGE INFORMATICN STORED IN IP IS NOT EASY 

T3 0U400290 

L INE 

30 

c 

INTERPRET. HOWEVER, IT IS USED PROPERLY BY 'SOLVE*. 

UU400300 

L INE 

31 

c 


00400310 

L INE 

32 

c 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED. 

00400320 

L INE 

33 

c 

NONE 

00400330 

L INE 

34 

c 


00400340 

L INE 

35 

c 

■METHOD 

00400350 

L INE 

36 

c 

MATRIX TR lANGULARI ZATION BY GAUSSIAN ELIMINATION. SEE 

00400360 

L INE 

37 

c 

ALGORITHM 423, 'COLLECTED ALGORITHMS FROM CACM' , BY CLEVE MOL ER 0040U370 

L INE 

38 

c 


0040U380 

L INE 

39 


DIMENSION A (NDIM, 1 1 ,IP(1) 

00400390 

L INE 

40 


IP(NI = 1 

OU40G400 

L INE 

41 


DO 6 K = 1,N 

00400410 

L INE 

42 


IF (K .EQ. N) GO TO 5 

00400420 

L INE 

43 


KPl = K&l 

00400430 

L INE 

44 


M = K 

00400440 

L INE 

45 


DO 1 I = KP1,N 

00400450 

L INE 

46 


IF (A3S(A(I,Kn «GT. ABS(A(M,KMI M= I 

00400460 

L IN E 

47 

1 

CONTINUE 

00400470 

L INE 

48 


IP (Kl = M 

00400480 

L INE 

49 


IF (M .NE. Kl IP(NI = -IP(NI 

00400490 

L INE 

50 


T = AJM,<I 

V 00 40 05 CO 

L INE 

51 


A(M,K| = A(K,KI 

00400510 

L INE 

52 


A(K,K 1 = T 

0040U520 

LINE 

53 


IF (T .EQ. 0.1 GO TO 5 

0U4UO53U 

L IN E 

54 


DO 2 I = KPl,N 

00400540 

L INE 

55 

2 

A( I ,Kl = -A(I ,KI /T 

00 40 05 50 

L INE 

56 


DO 4 J = KP 1 ,N 

00400560 


-6 . l6- 


// 


okigin’a:. ,u . 18 

OF POOR Q.Ji*' • C 


L IN6 

57 



T = 

004005/0 

L INE 

58 



= A(K,JI 

U04005UO 

L I'N E 

59 



A<KfJ ) = T 

0U4U05SO 

L INE 

60 



IF (T .E3. 0.) GO TO 4 

OUAOOfcUO 

L INE 

61 



DO 3 I = KPliN 

U04UU6L0 

L INF 

62 

C 


IF ( A( 1 r J) .£0. 0.0) GO TO 21 

OU400620 

L INE 

63 

C 


C = ( A ( I, J) E A { I ,K) *T) / A(I ,J) 

004U0630 

L INE 

64 

C 


C = A3SIC ) 

UU4UU640 

L INE 

65 

C 


IF( C .L£. .OOQU Ad , J) =0.0 

0040U65U 

L INE 

66 

C 


IF( C .LE . .0001) 60 TO 3 

00400660 

L INE 

67 

C 

21 

CONTINUE 

00400670 

L INE 

68 



A(I,J) =AU,J) EAd,K)*T 

00400680 

L INE 

69 


3 

CONTINUE 

00400640 

L INE 

70 


4 

CONTINUE 

00400700 

L INE 

71 


5 

IF (AIK,K) .EO, 0.) IP(N) = 0 

00400/10 

L INE 

72 


6 

CONTINUE 

00400720 

L INE 

73 



RETUIN 

00400 /30 

L INE 

74 



END 

00400740 
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DISPLAY.. .FILE 

DECK 05 



L INE 

1 

SUBROUTINE OIAG'i WROW, IF ,LRECL,NNCHtMC, 0, NET , ARO»< , IZ, IP , 

00500010 


L INE 

1 

1 NSPT,FRJ,CARnW|CwROM 

0U50U02U 


LINE 

3 

COMPLEX CAKQwm, CWRQW(l) 

00500030 


L INE 


COMPLEX WTES 

00500040 


L INE 

5 

INTEGER PRINT 

00500050 


L INE 

6 

LOGICAL TREDGE 

00500060 


L INE 

7 

LOGICAL WAKEfWAKEl ,WAKEN2 

0» ' • CO 70 


L INE 

8 

DIMENSION AROW(NET), IZINETJ 

OJO.i,C.'(80 


L INE 

9 

DIMENSION DIMC.MCI, IP(MC) 

00500090 


L INE 

10 

DIMENSION NNCH(l) 

0U50O1CO 


L INE 

11 

DIMENSION WROW(LRECL) 

00500110 


L INE 

12 

COMMON /K1112/ KSTllfKSTlZ 

00500120 


L INE 

13 

COMMON /TAPE/ I 9 , 1 10, 1 1 1 , 1 12 , 1 13 , 1 1 4t J9 , 1 15 

00500130 


L INE 

lA 

COMMON /VELCOM/ N MA X , PR I NT , NWBLOK , N WRUWi 20 » 

U0500140 


L INE 

15 » 

COMMON /WAKE/ ITWM, ITW, ICNVGW, EPSw, JCNVGW , L RWT E, IWT E 

00 500150 


L INE 

16 

COMMON/WAKEUP/ WTESdZ), TREDGE ,WAKE 1 ,WAKE , WAKENZ, KW AK E 

00500160 


L INE 

17 

REWIND 111 

005001 70 


L INE 

18 

REWIND 19 

00500180 


LINE 

19 

REWIND 110 

00500190 


LINE 

20 

18 = 19 

005002L0 


L IN e 

21 

IF nWTE .EQ.O) REWIND 112 

00500210 


L INE 

22 

IF(WAKE) ' PgWiND .115 

00500220 


L INE 

23 

READU9I 

00500230 


L INE 

24 

IFIWAKEI READ(I15J 

OC 50 0240 


L INE 

25 

IBT =0 

00 5002 50 


L INE 

26 

K1 = 0 

00500260 


L INE 

27 

K=0 

00500270 


L INE 

28 

WAKENZ = . FALSE. 

0U5U028U 


L INE 

29 

DO 40 I 8=1, NWBLOK 

00500290 


L INE 

30 

NROW = NWROWdBI 

gu5003cq 


LINE 

31 

00 20 I = 1 ,NROW 

00500310 


L INE 

32 

K=KC1 

00500320 


L INE 

33 

CALL FREQWI I 9,AR0W,WR0W, 1F,LRECL) 

OU50O33O 


L INE 

34 

DO 15 J=1,NR0W 

0050034U 


L INE 

35 

M= JCIBT 

00500350 


L INE 

36 

D(I,J) = AROWtMJ 

00500360 


L INE 

37 

AR0W(M» = 0.0 

00500370 


L INE 

38 15 

CONTINUE 

00500380 


L INE 

39 

IF(NW8L0K .NE.II 

0U5UU390 


L INE 

40 

ICALL WRITEOIK, AROW, IZ, WRCWjNETI 

005004CO 


LINE 

41 

IF dWTE .EQ.O) GO TO 20 

00500410 


L INE 

42 

IF( .NOT. WAKE ) GO TP 20 

00500420 


L INE 

43 

1F( K .GT. KVsAKE ) GO TO 20 

00500430 


L INE 

44 

IF(K1 .GT.K) GO TO 20 

0050U44U 


LINE 

45 

IF(FR.J.EQ.0.0) GO TO 20 

00500450 


L INE 

46 

CALL wAKETI I12,CAR0W,CWRQW,IF,LRWTE ,NSPT, 

00 5004 60 


L INE 

47 

1 1 15, iz,ki,nn:h,fro,k) 

005004 70 


L INE 

4B 20 

CONTINUE 

U0500480 


L INE 

49 

IBT = IBT & NRGW 

OU 50 0490 


L INE 

50 C 

CALL MATPRTI 0, NROW, NROW, *0 MATRIX' ) 

OOaOUScO 


L INE 

51 

CALL DECOMl NROW ,NMA X,0 , 1 P) 

00500510 


L INE 

52 

W.R ITE ( 110] 0 , I P 

00500520 


L IN E 

53 40 

CONTINUE 

00500530 


L INE 

54 

ENQ,>FTLE 110 

0U5OU54U 


L INE 

5 5 

END/ FILE 111 

00500550 


L IN E 

56 

REWIND 110 

00500560 
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L IN6 

57 

REWINJD 

III 


0U500570 

L I\E 

58 

IF( IWTE 

.N=. 01 

ENO FILE 112 

00500580 

LINE 

59 

IP( IWTE 

.NE. 0) 

REWIND 112 

00500590 

L INF 

60 

RETURN 



00 500fcCU 

L INE 

61 

END 



00 500610 


ORIGINAL PAGE 1" 
^OQlt QUAI«- 


CISPLAY .. 

.FILE 

DECK 06 


L INE 

1 


SUBROUTINE ECHOI KONTRU. 

00600010 

L INE 

2 


DIMENSION CARD I 20) ' * 

OU60U020 

L INE 

3 


common /tape/ 1.9 , 1 10,1 11 , 1 12 , 1 13 , 1 14 ,J9 ,115 

00600030 

L INE 

A 


COMMON / /FOZIO / J5»J6 

00600040 

L INE 

5 


DATA CENO/4HENO / 

OOLJOObO 

L INE 

6 


KDNTRL = Q 

00600060 

L INE 

7 


R fc W IN D 111 

UU6J0070 

L INE 

8 


L INES = 0 

U060UU80 

L INE 

9 


WR ITE( Jo»500) 

U0600090 

L INE 

10 

10 

PEAOlJ5,2GOa , END = 100) CARD 

00600100 

L INF 

11 

CDC 10 

READ ( J5f2000). CARD 

00600110 

L INE 

12 

CDC 

IF } tGF(J5)l 100,11 

00 60 01 20 

L INE 

13 

11 

CONTINUE 

00600130 

L INE 

lA 


L INES = LINE S C 1 

00600140 

L INE 

15 


IF( L INES .L T. 47 ) GO TO 50 

006U0150 

L INE 

16 


WR ITE( J6, 700) 

00600160 

L INE 

17 


WRITEU6,500) 

00600170 

L INE 

18 


L INES - 0 

006UU18U 

L INE 

19 

50 

WR ITE( 111, 2000) CARO 

00600150 

LINE 

20 


WR lTE-( J6, 600) CAPO 

00600200 

L INE. 

21 


IF{ CARDl 1) .EQ. CEND) GO TO 90 

00600210 

L INE 

22 


GO TO 10 

U060U22U 

L INE 

23 

C 

E-ND OF ONE CASE 

00600230 

L INE 

2A 

90 

WR IT£( J6,700) 

OU60U240 

L (NE 

26 


ENO FILE 111 

00600250 

L IN E 

26 


REWIND 111 

00600260 

L INE 

27 


RETUR N 

00600270 

L INE 

28 

C 

END OF J03 

UU60U280 

L INE 

29 

100 

khntrl = 1 

0U60U290 

L INE 

30 


RETURN 

00600300 

L INE 

31 

500 

FORMA T< IHi, 41X, 46H* * * * I SCON A.NALYSIS INPUT DATA DECK v * * =5^ 

, 006)0310 

L INE 

32 


1 //, LHO, 24X , IH ,9X,1H1 ,9X,1H2 ,9X,1H3 ,9X ,1H4,9X , 1H5 ,9X , 1H6, 9X , 1H7, 

0060 0320 

L INE 

33 


2 9X,LH8 /25X,81H 123456 78901 23 45 6 7 89 01 2 345 5 7890 123456 7890 123 45 6 7 89 00600 35U 

L INE 

34 


30123456739012345678901234567890 //) 

006UU340 

L INE 

35 ■ 

600 

FORMA II IH , 25X,.20A4). 

OU6O035O 

L INE 

36 

700 

F.ORMA n //25X ,81H 12345 67890123 456 789 012 3456 7890123 456789 0 123 45 6 7 89 U0600360 

L INE 

37 


10123456789012345678901234567890 /25X,1H ,9 X , IHl ,9X , 1H2, 9X , 1 H3, 9X , 

1006003/0 

L INE 

38 


2H4, 9X, 1H5,9X,1H6,9X,H7,9X,1H3) 

00600380 

L INE 

39 

2000 

FORMA T< 2CA4). 

OU 600390 

L INE 

40 


END 

OU6U0400 
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CISPLAY...FILE DECK 07 


L INE 

1 

SUBR3UTINE EFPLOT <AI 

L INE 

2 

CALL CALPLTI C. 0,0. 0.999) 

L INE 

3 

RETURN 

L INE 

4 

END 


UO 700010 
00 70U020 
00700030 
007000AO 


original page y-; 


DISPLAY.. 

OF 

.FIL E 

POOB QUAL^ • 

KEPHUDUClBILJTy OF THHi 
ORIGINAL FAG El 3 FOO'B 

DECK 08 


L INE 

1 


SUBROUTINE EONE 

008U0D1O 

L INE 

2 

C 


00800020 

L INE 

■3 


logical ereone, emirro 

0080U030 

L INE 



COMMON / EEW / XUPi YUP, XLWf YLW, EREONE, EMIRRO, RR, RL, R TR , R TL 0 j8UijU40 

L INE 

5 


COMMON / RRLL / TVWI4I, YRO, YLO , ZR, ZRZR, ZL, ZLZL 

00800050 

L INE 

6 


COMMON / KWi / XO, YO,ZD ,ZDZD, SYMK 

00300060 

L INE 

7 

C 


00800070 

L INE 

8 

C 

TEST IF ELEMENT AND MIRROR IMAGE OF ELEMENT ARE IN MACH CUNE 

00800080 

L INE 

9 

C 

EREDNE TRUE IF ELEMENT IS IN MACH CONE 

00800090 

L INE 

10 

C 

EMIRRO TRUE IF SYMMETRY CODE .NE. 0 AND MIRROR IMAGE IS 

00800100 

L INE 

11 

C 

IN MACH CONE. IF ERONE=FALSE THEN EM IRRO=FAL Sfc , 

OOBOOl 10 

L INE 

12 

C 

XO,YO COORDINATES OF RECEIVING PT . ( LENT EK OP REC. ELE.I 

00800120 

L INE 

13 

C 

XLWtYLW 1ST PT. ON LINE OF INFLUENCING ELb. 

00800130 

L INE 

U 

C 

XUP.YUP 2ND PT. ON LINE OF INFLUENCING ELE. 

008U0140 

L INE 

15 

C 

SYMK SYMMETRY CODE ( 0.0 F CR NO SYMMETRY » 

008001 50 

L INE 

16 

c 

RR AVERAGE R OF RIGHT-HAND ELEMENT 

0D800160 

L INE 

17 

c 

RL AVERAGE R OF LEFT-HAND ELEMENT 

00800 WO 

L INE 

18 

c 


00800180 

L INE 

19 

c 

NOTE THIS ROUTINE I S ALSO USED TO TEST TRAILING EDGE LINE UF 

00800190 

L INE 

20 

c 

ELEMENT WHEN XI ,Y1 AND X2 , Y2 ARE ON TRAILING EDGE AND SVM=O.I 

300800200 

L INE 

21 

c 


0U80O21O 

L INE 

22 


EREONE = .FALSE. 

00800220 

L INE 

23 


EMIRRO = .FALSE. 

00800230 

L INE 

2^ 


RK = 0.0 

0U800240 

LINE 

2 5 


RL = 0.0 

UOB00250 

L INE 

26 


ZETAl = XO - XLW 

00800260 

L INE 

27 


ZETA2 = XO - XUP 

008002 JO 

L INE 

28 


IF( ZETAl .LE. 0.0 .AND. ZETA2 . LE, 0.0 ) RETURN 

00800280 

L INE 

29 


E TA 1 = YRO - YLW 

0U80O290 

L INE 

30 


ETA 2 = YRO - YUP 

00800300 

L INE 

31 


T1 = SQRTI ETAI*ETA1 G ZRZR ) 

00800310 

L INE 

32 


T2 = SORT! ETA2*ETA2 G ZRZR ) 

00800320 

L INE 

33 

10 

CONTINUE 

00800330 

L INE 

3 A 


R 1 = ZETAl - T1 

00800340 

L INE 

35 


R2 = ZETA2 - T2 

00800350 

L INE 

36 


I FI R1 .LE . 0,0 .AND. R2 .LE. 0 » RETURN 

U080U360 

L INE 

37 


R 1 = Rl«( ZE TAl G Til 

008003 10 

L INE 

38 


R2 = R2<'( ZE TA2 G T2l 

00 800380 

L INE 

39 


IF! EREONE 1 GO TO 90 

00800390 

L INE 

40 


EREONE = .true. 

0UBJ04O0 

L INE 

41 


B TR = R 1*R2 

00800410 

L INE 

42 


IF.I R1 ,LT. 0.0 ) R1 0. 0 

0080U420 

L INE 

43 


IF{ R2 ,LT. 0.0 ) R2 = 0.0 

00800430 

L INE 

44 


Rl = SOkTI Rl i 

00800440 

L INE 

45 


R 2 SORT! R2 I 

00800450 

L INE 

46 


RR = 0.5*( Rl G R2 ) 

00800460 

L INE 

47 


IF! SYMK.EQ. 0.0 ) RETURN 

00800470 

L INE 

48 


ETA 1 = YLO - YLW 

00800480 

L INE 

49 


ETA2 = YLO - YUP 

00800490 

L INE 

50 


T1 = SORT! ETAI*ETA1 G ZLZL 1 

U0B0U5CU 

LINE 

51 


T2 = SQRTI ETAZ-i'ETAZ G ZLZL 1 

008UU5 10 

L INE 

52 


GO TO 10 

00800520 

L INE 

52 

90 

CONTINUE 

00800530 

L INE 

54 


EMIRRO = .TRLE. 

00800540 

L INE 

55 


R TL = R 1*R2 

UU80055U 

L INE 

56 


IF! R 1 .LT. 0,0 1 Rl = 0. 0 

0U1J00560 
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L INE 

57 

IF( ^2 .LT. G.O ) R2 = 0.0 

UU30U570 

L INE 

58 

R1 = SQR7( R1 » 

UU8GU58U 

L INE 

59 

R2 = SURTI R2 i 

L)0 6'Job90 

L INE 

60 

RL = 0.5* < R 1 S R2 1 

UUHJU6UU 

L INE 

61 

RETURN 

CUbuOblU 

L INE 

62 

END 

U030U620 


DISPLAY. ..FILE DECK 09 


L IN E, 

1 


SUBROUTINE FGEN 


00900010 

L IN £ 

2 


REAL .-lACH 


(JU90UU20 

L INE 

3 


COKViON /SASIC /MACH, BEE TA 


00900030 

L INE 

4 


COMMON / FQl / NFREO, CF ( 12 ,30 1 F RE G( 1 2 ) , FREUP(12I, FRT Ei f , N TM XX 00900040 

L INE 

5 

C 

NTMX THE MAXIMUM NUMBER OF TERMS US 60 

IN WIN! GR, rtV INT 

UJ9U0050 

L INE 

6 

C 

XUNDER MACHINE 06 PENDENT NUMB ER , LARGES I 

NTMX.\= 30 
XUNCVEf !/= 1*^292.0 

NEGATIVE bXPUNENT 

UU9U0060 

L INE 

7 



00900070 

L INE 

8 

coc 


00900060 

L INE 

9 


XUNCi£R,:"=A77.5 


00900090 

LINE 

10 

c 

WR ITE ( 6, '1001 ) NFREO, ( FREQ (I), 1=1, NFREO 

I 

00900100 

L INE 

11 


FRTEST r=-1.0EC65 


009001 10 

L INE 

12 


DO S 1=1, NFREO 


009U0120 

L INE 

13 


FREQP(I,i = FREOm^MACH/BEETA 


00900130 

t INE 

lA 

5 

FRTEST = AMAXU FREOPIII, FRTEST J 


00900140 

L INE 

15 

C 

WRITE! 6, 1001 ) NFREO, ( FREOPUI, 1=1, NFREO 

), FRTESr 

00900150 

L IN £ 

16 

c 



00900160 

L INE 

17 


NTMXX = 1 Si 


00900170 

L INE 

IS 


DO 40 I = 1, NFREO 


00900180 

L INE 

19 


CF!I,U = 1.0 ‘ \ 


00 90 0190 

L IN E 

20 


XKK = FREQP(n«FREOP(IJ 


00900200 

L INE 

21 


IF! XKK .GT. 0.0 I GO 'TO 15 


009U0210 

L INE 

22 


DO iO J = 2, NTMX 


00900220 

LINE 

23 

10- 

CF! I, J » = 0.0 


00900230 

L INE 

24 


GO TO 40 


00900240 

L INE 

25 

15 

CONTINUE 


0U9UU25U 

L INE 

26 


DO 30 J=2, NTMX 


00900260 

L INE 

27 


N = J - 1 


00900270 

L INE 

28 


N 2 = NGN 


00900280 

L INE 

29 


FACTOR = XKK/FL0AT!N2*!N2-1)I 


00900290 

L IN E 

30 


AlO = ABSX CF!I ,N) I 


00900300 

LINE 

31 


AlO = ALOGiO! AlO 1 G ALOGIO! FACTOR ) 


00900310 

L IN E 

32 


IF! AlO .GE. XUNDER ) GO TO 25 


00900320 

L INE 

33 


DO 20 J1 = J,NTMX 


00900330 

L INE 

34 

20 

CF! I, Jl) = 0.0 


00900340 

L INE 

35 


NTMXX = MAXO! NTMXX, N 1 


00900350 

L INE 

36 


GO TO 40 


00900360 

L INE 

37 

25 

CONTINUE 


00900370 

L INE 

38 


CF!I,JI = -CF!I ,N)»FACT0R 


00900380 

L INE 

39 

30 

CONTIfNUE 


0090C390 

L INE 

40 


NTMXX = NTMX 


00900400 

L INE 

41 

C 



00900410 

LINE 

42 

40 

CONTINUE 


00 90 04 20 

L INE 

43 

C 



00900430 

L INE 

44 

C 

DO 50 I = 1, NFREO 


00900440 

L IN E 

45 

C 

WRITE! 6, 1001 I I , ! CFII , Jl , J=l , NTMX ) 


00900450 

L INE 

46 

C iOOl 

FORMAT! // 18, 5X, 5E18. 5 / ! 13X, 5E18.5 1 » 


00900460 

L INE 

47 

C50 

CONTINUE 


00900470 

L INE 

48 


RETURN 


00900480 

L INE 

49 


END 


00900490 
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DECK 10 



L INE 

1 

SUBROUTINE FREQwII B .AROW.WROW ,NF,LR£CLI 

01000010 

L INE 

2 

DIMEa<S 10N WROWILRECU, AROwt NWINGJ 

0100U020 

L INE 

3 

CDM^DN /FDl/ NFREO 

UIUU0030 

L INE 

A 

COMMON /PARAM/ NWING 

OlOUOOAO 

L INE 

5 

EQUIVALENCE INET,NWIN3 I 

ologouso 

L INE 

6 

READ! 16) Kl» WROW 

01000060 

L INE 

7 

K=NF 

01Q00U70 

L INE 

8 

DO 100 J=l, NWING 

UiOOUOBU 

L me 

9 

AROW(J) = WROWIK) 

01UU0090 

L INE 

10 

K = K S NFREQ 

01000100 

L INE 

11 

100 CONTINUE 

OiOOOllO 

L INE 

12 

RETURN 

01000120 

L INE 

13 

END 

01000130 
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DECK IX 


L INE 

1 

SUHPDUTINE GETTIM ( ITIME ) 

OilDUOlO 

L INE 

2 

DIMENSION I TIME ( 8) 

01 1UUU20 

L IN6 

3 

CALL SECOND (AJ 

011U0030 

L INE 


ITIME (2) = A ♦ 1000.0 

OllOOOAO 

L INE 

5 

RETURN 

OHOUJIjO 

1 INE 

6 

END 

OllUUOtO 


DISPLAY 


FILE 



DECK 12 


L INE 

i 


SUBROUTINE 

GRIOIN{ CCRNX, CORNY, CORNZ ,X YZ, Z ,T RS , NNCH, Sw , X L E, 

01200010 

L INE 

2 


1 N SP , 

NE , NETSV, REFLEN, NFREO, FREQ, 

U1200C20 

L INE 

3 


1 NWING 

, NSECT, ICL, ERROR, oEETA, LAB, ID, FD, 15, I6 ) 

U120U03U 

L INE 

A 

C 



01200040 

L INE 

5 

C 

PURPOSE GENERATE MESH FOR 1 SECTION WHEN OPTIONAL DATA FOR A 

01200050 

L INE 

6 

C 

PARTICULAR SEC TI ON IS PRESENT, 'GRID* DATA 

01200060 

L INE 

7 

C 



012000/0 

L INE 

8 

C 

INPUT 


01200080 

L INE 

9 

C 



U120009U 

L INE 

10 

C 

15 

INPUT UNIT I USUALLY CARO READER 5 ) 

OL20010U 

L INE 

11 

C 

16 

OUTPUT UNI T ( PRINTER 6 ) 

01200110 

L INE 

12 

c 

ERROR 

LOGICAL THAT COMES IN FALSE, MAY BE SET TRUE 

U120U120 

L INE 

13 

c 

3EETA 

SOR T(MACH*MACH-1) USED TC TRANSFORM CORNX AND CL 

01200 130 

L INE 

14 

c 

NWiNG 

NO. WINGS IN STRUCTURE 

01200140 

L INE 

15 

c 

nsect 

ARRAY NO. SECTIONS IN EACH WING 

01200150 

L INE 

16 

c 

LAB , 

ID, FD INFORMATION ON LAST CARO READ 

01200160 

LINE 

17 

c 

(BOTH 

INPUT AND OUTPUT) 

012001 70 

L INE 

18 

c 



01200180 

L INE 

19 

c 

OUTPUT 


01200190 

LINE 

20 

c 

CORNX 

, CORNY, CORNZ X,Y, AND Z COORD. OF CORNER PIS 1, 2, 3, 4 

01200200 

L INE 

21 

c 


I N GLOBAL SYSTEM 

01200210 

L INE 

22 

c 

NSP 

DESIRED NUMBER OF SPANS FOR SECTION (INPUT BY USER) 

01200220 

L INE 

23 

c 

XYZ 

4 X AND 2 Y LOCAL COORD. FOR EACH ELEMENT OF SECTION 

01200230 

L INE 

24 

c 

Z 

Z COORDINATE FOR ALL ELEMENTS IN SECTION (FROM TRANS) 

01200240 

L INE 

25 

c 

TR S 

2 BY 2 TRANS MATRIX TO GC FROM LOCAL TO GLOBAL 

01200250 

L INE 

26 

c 

NNCH 

ELEMENT NUMBER (W.R.T. TOTAL STRUCTURE) OF LAST 

01200260 

L INE 

27 

c 


ELEMENT IN SPAN. (USED F CR LABELING PLOT) 

01200270 

L INE 

28 

c 

SW 

SPAN WIDTH 

01200280 

L INE 

29 

c 

XLE 

AVERAGE X COORDINATE OF LEADING EDGE PER SPAN 

U120U290 

L IN E 

30 

c 

NE . 

NUMBER OF ELEMENTS IN SECTION. 

01200300 

L INE 

31 

c 

ICL 

ICL(I,J) CODE FOR SECTION I OF WING J 

01200310 

L INE 

32 

c 


ICL(I,J) = -1 SPECIFIC GRID INFORMATION IS INPUT 

01200320 

LINE 

33 

c 


HERE ICL IS UPDATED IF ANOTHER 'GRID* SECTION IS ENCUUNT 0 1 20(J 330 

L INE 

34 

c 


ERED AFTER READ PRESENT 'GRID' SECTION 

01200340 

L INE 

35 

c 

NETSV 

COUNTER OF TOTAL NUMBER CF ELEMENTS IN STRUCTURE 

01200350 

L INE 

36 

c 



01200360 

L INE 

37 


LOGICAL ERROR 

012003 /O 

L INE 

38 


LOGICAL FREQR 

01200380 

L INE 

39 


DIMENSION : 

CORNX(l), CORNY(l), CORNZIl) , TRS(l), X(4), Y(4) 

01200390 

L INE 

40 


DIM EN SION 

FREQ(IO) 

012004CO 

L INE 

41 


DIMEN SION 

10(9) , FD(4) 

01200410 

L INE 

42 


DIMEN SION 

XLE( 1) , SW(l) 

01200420 

L INE 

43 


DIMEN SION 

XYZ(l), NNCH(40), I CL ( 3 ,4 ) , NSECT ( 1 ) 

012U0430 

L INE 

44 


DATA LB, 

LE, LC / 4H , 4HEN0 , 4HCH0R / 

01200440 

L INE 

45 


DATA LG, 

LS, L.M, LF / 4HGRID, 4HSPAN, 4HMUDE, 4HFREQ / 

01200450 

L INE 

46 

c 



01200460 

L INE 

47 

c 

TRANSFORM CORNER POINTS TO LOCAL SYSTEM, WORK IN LOCAL SYSTEM 

01200470 

L INE 

48 


CALL TRANSI CORNX, CORNY, CORNZ, TRS , X, Y, Z I 

Ul 20U480 

L INE 

49 

c 



01200490 

L INE 

50 

c 



012O05CO 

L INE 

51 

c 

•GR ID 

' CARO MUST HAVE BEEN LAST CARD READ. (EITHER IN W INGIN 

01200510 

L INE 

52 

c 

OR IN 

A PREVIOUSE CALL TO THIS ROUTINE - SEE 80 CONTINUE) 

01200520 

LINE 

53 

c 



U12UU530 

L INE 

54 


FREOR = .FALSE. 

01200540 

L INE 

55 


JW = IDUJ 


01200550 

L INE 

56 


IS = 10(2) 


0120 0 560 
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L INE 

57 


Y1 = mj « REFLEN 





01 20 0 5 70 

L INE 

58 

C 

INITIALIZE ELEMENT AND SPAN 

COUNTERS 

I Nb 

AND 

ISP) 

0120U680 

L INE 

59 


NE = 0 





0120L690 

L INE 

60 


ISP = 0 





0120UfcOO 

L INF 

61 

C 






Ul20UfclU 

L INE 

62 


WR ITE ( 16, 3000 ) JH, I S 





U1200O20 

L INE 

63 

C 






012UUc3U 

L INE 

6^ 

10 

CONTINUE 





0120U640 

L INE 

65 


READ! 15, 1000 ) LAB , ID , FD 





01200660 

L INE 

66 

C 






012U0660 

L INE 

67 


IF< lab ,E0. LS ) GO TO 20 





U1200670 

L INE 

68 


IF( LAB .£0. LG I GO TO 80 





012006fc0 

LINE 

69 


IF( LAB ,EQ. LF ) GO TO 50 





01200690 

L INE 

70 


IF( LAB ,E0. LM i GO TO 65 





U120U 7{iO 

L INE 

71 


IF! LAB .EO. LE ) GO TO 60 





01200710 

L INE 

72 


IF( LAB .EQ. L8 1 GO TO 70 





01200720 

L INE 

73 

C 






01200 ^30 

L INE 

74 

c 

INVALID LABEL CARD READ 





U120U740 

L INE 

76 


WR r TE 1 16, 2000 ) 





01200760 

L INE 

76 


WRITEI 16, 2018 1 





01200 /60 

L INE 

77 


WB ITE ( 16, 2017 ) LAB, ID , FD 





01200770 

L INE 

78 


ERROR = .TRUE. 





012007BU 

L INE 

79 


GO TO 10 





01200790 

L INE 

80 

c 






01200800 

L INE 

81 

20 

CONTINUE 





01200810 

L INE 

82 

C 

'SPAN' CARO HAS BEEN READ, UPDATE SPAN 

COUNTER 

AND 

CHECK CARDU12!)Ub20 

L INE 

83 

C 






01200E30 

L INE 

84 


ISP = ISP £ 1 





01200840 

L INE 

85 


NC == ID(2» 





01200860 

L INE 

86 


YSPAN = FD(U 





01200860 

L INE 

87 


IFI ID( 1) ,EQ. I SP ) GO TO 21 





012008 70 

L INE 

88 

c 

SPAN CARDS ARE OUT OF ORDER 





01200880 

L IN E 

89 


WRITEI 16, 2000 ) 





01200890 

L INE 

90 


WRITE! 16, 2026 ) 10(11, ISP 





01200900 

L INE 

91 


ERROR = .TRUE. 





01200910 

L INE 

9 2 

21 

CONTINUE 





01200920 

L INE 

93 


IF! YSPAN .GT. 0.0 > 30 TO 22 





01200930 

L INE 

94 

C 

SPAN WIDTH LESS THAN OR EQUAL 

TC ZERO 




0120U940 

L INE 

95 


WRITE! 16, 2000 ) 





01200960 

L INE 

96 


WRITE! 16, 2027 I ISP, YSPAN 





01200960 

L INE 

97 


ERROR = .TRUE. 





0120U9 70 

L INE 

98 

22 

CONTINUE 





01200980 

L INE 

99 


IF! NC .GT. 0 ) GO TO 23 





O120099O 

L INE 

100 

C 

number of chord lines must BE 

GREATER 

r HAN 

OR 

EQUAL 

TO ZERO 01201000 

L INE 

101 


WRITE! 16, 2000 ) 





012UIU1U 

L INE 

102 


WRITE! 16, 2028J ISP 





01 20 1020 

L INE 

10 3 


ERROR = .TRUE. 





01201030 

L INE 

104 

23 

CONTINUE 





01201040 

L INE 

105 

C 






01201060 

L INE 

106 


WRITE! 16, 3001 ) ISP, NC , YSPAN 





0 120 1060 

L INE 

107 

C 






012010 70 

L INE 

108 


Y2 = Yl S YSPAN 





01201 080 

L INE 

109 

C 

READ 1ST 'CHORD* CARD, MUST 

BE labeled ' 

CHORD' 

012J1090 

L INE 

110 


READ! 15, 1000 ) LAB, ID, FD 





01201100 

L INE 

111 


IF( LAB .EO. LC J GO TO 24 





0120U10 

L INE 

112 

C 

CHURO CARD NOT FOUND 





01201120 

L INE 

113 


WRITEI I6,‘ 2000 ) 





01201 130 

L INE 

114 


WRITE! 16, 2029 ) ISP 





01201140 

L INE 

115 


ERROR = .TRUE. 





0X201150 

L INE 

116 

24 

CONTINUE 





01201160 

L INE 

117 


IC = 1 





012011 70 

L INE 

118 


XI = FD!1) 





01201180 


-6.28 




L INE 

119 


X2 = FD(2» 


01201190 

L IN E 

120 

C 



012U1200 

L IN E 

121 


WR ITE 1 16, 3002 I IC , XI , X2 


01201210 

L INE 

122 


X2 = X2/8EETA 


0120 1220 

L INE 

123 


XI = X1/8EETA 


01201230 

L INE 

12^ 


SW( ISP I yspan/reflen 


01201240 

L INE 

125 


XLEdSP i = O.S*- ( XI CX2I /REFLEN 


01201250 

L INE 

126 

C 



012U1260 

L INE 

127 

C 

LOOP ON NUMBER OF CHORD CARDS 2,NC 


012012 ?0 

L IN£ 

128 


DO 30 IC = 2, NC 


01201280 

L INE 

129 

C 



01201290 

L INE 

130 


READ! 15, 1000 > LAB, ID, X4 , X3 


01201300 

L IN E 

131 

C 



01201310 

L INE 

132 


WR ITE( 1 6, 3002 ) IC , X4 , X3 


01201320 

L INE 

133 


X3 = X3/3E6TA 


012U133O 

L INE 

13« 


X4 = X4/BEETA 


U 120 1340 

L INE 

135 

C 



01201350 

L INE 

136 


XMIN = AMINU <X4~X1I, (X3-X2) 1 


U12U1360 

L INE 

137 


IF( XMIN .GT. 0.0 I GO TO 25 


012013 70 

L INE 

138 


XMAX = AMAXK (X4-X11, <X3-X2I I 


01201380 

L INE 

139 


IF( XMIN .EQ. 0.0 .AND. XMAX .GT. 0.0 I 

GO TO 25 

01201390 

L INE 

140 


WRITE! 16, 2000 J 


01201400 

L INE 

141 


WRITE! 16, 2031 » IC , I SP 


01201410 

L INE 

142 


ERROR s .TRUE. 


01201420 

L INE 

143 

25 

CONTINUE 


01201430 

L IN E 

144-5 

C 



01201440 

L INE 

145 


NJ = 6<=NE 


01201450 

L INE 

146 


NE = NECl 


01201460 

L INE 

147 


xyzi'jjcu = xi/reflen 


012014 70 

L INE 

148 


XY2!NJL2I = X2ZREFLEN 


01201480 

L INE 

149 


XYZ!\IJC3I = X3/REFLEN 


01201490 

L INE 

150 


XYZINJC4) = X4/REFLEN 


O12O15C0 

L INE 

151 


XYZ!NJC5) = Yl/REFLEN 


01201510 

L IN E 

152 


xyZINJ(;6) = Y2/REFLEN 


012U152U 

L INE 

153 


XI = X4 


01201530 

L INE 

154 


X2 = X3 


01201540 

L INE 

155 

30 

CONTINUE 


01201550 

L INE 

156 

C 



01201560 

L INE 

157 


Y1 = Y2 


0 1 20 1 5 70 

L IN E 

158 


NNCH! ISP ) = NE G NETSV 


01201580 

L INE 

159 

c 



01201590 

L INE 

160 


GD T3 10 


012016C0 

L INE 

161 

c 



01201610 

L INE 

162 

50 

CONTINUE 


01 20 1620 

L INE 

163 

C 

FREQUENCY CARD READ 


01201630 

L INE 

164 


FREOR = .TRUE. 


01201640 

L INE 

165 


DO 55 1 =1 , 4 


01201650 

L INE 

166 

55 

FREQ! I) = FD(I) 


01201660 

L INE 

167 


NFREQ = ID!1) 


0120 1670 

L INE 

168 


IF! NFREQ .GT. 4 ) READ! 15, 1001 ) ! FREO!I), 1=5, NFREQ ) 

O1201ti80 

LINE 

169 


WRITE! 16, 3006 J NFREC, ! FREQdl, 

1= 1..NFRE0J 

0i.2ul69U 

L INE 

170 


GO TO 10 

012U17CU 

L IN E 

171 

C 



0 120 1710 

L INE 

172 

60 

CONTINUE 


01201720 

L INE 

173 

C 

END CARD READ 


01201730 

L INE 

174 

C 

30 TH MODE AND FREQUENCY DATA MISSING 


0i201 740 

L INE 

175 


WRITE! 16, 2000 J 


u 1201 750 

L INE 

176 


WR ITE ( 16, 2014 I 


012U 1 760 

L IN S 

177 


WRITE! 16, 2015 i 


0120 17/0 

L IN E 

178 


ERROR = .TRUE. 


01201 780 

L INE 

179 


GO TD 90 


0i201 790 

L INE 

180 

C 



U12018CU 
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L INE 

181 

65 

CONTINUE 





0120i810 

L INF 

182 


1F( FKEOR I GO TO 90 





U1 2U1B2U 

L INE 

183 


WRITE! I6« 2000 \ 





U12U1830 

L INF 

184, 


WR ITE( 16, 2015 ) 





UUDUi4i) 

L INF 

185 


ERROR = .TRUE. 





01201850 

L INE 

186 


GO TD 90 





01201860 

L INE 

187 

C 






01201870 

L IN E 

188 

70 

CONTINUE 





01201880 

L INE 

189 

C 

LABEL CARD EXPECTED BUT NOT RECEIVED 



01201890 

L INE 

190 


WRITE! 16, 2000 1 





01201900 

L INE 

191 


WRITE! 16,2016 I 





01201910 

L INE 

192 


WR ITE ( 16, 2017 ) LAB, ID , FO 





U12J1920 

L INE 

193 


ERROR = .TRUE. 





01 20 1930 

L INE 

19A 


GO TD 10 





U1201940 

L INE 

195 

C 






01201950 

L INE 

196 

80 

CONTINUE 





01201960 

L INE 

197 

C 

GRID CARD READ 





0120 1970 

L INE 

198 

C 






U12U198U 

L INE 

199 


I = IDI2I 





01201990 

L INF 

200 


J = ID! 1) 





UI2O2U0O 

L INE 

201 


IF! I .GT. NSECT!J) I GO TO 81 





01202010 

L INE 

202 


IF! 1 .GT. NWING 1 GO TO 81 





012U2U20 

L INE 

203 


IF! J .LT. JW 1 GO TO 82 





U12U2030 

L INE 

204* 


IF! J .EO. JW .AND. I .LE. IS 

) GO TO 

82 



01202040 

L INE 

205 


ICL!l,J) = -1 





01202050 

L INE 

206 


GO TO 90 





01202060 

L INE 

207 

81 

CONTINUE 





012U2070 

LINE 

208 

C 

GRID DATA SPECIFIED FOR SECTION THAT DOES 

NOT EXIST 

01202080 

L INE 

209 


WR ITE! 16, 2000 ) 





01202090 

L INE 

210 


WR ITE! 16, 2020 ) 





01202100 

L INE 

211 


WRITE! 16, 2021 » J, I 





01202110 

L INE 

212 


ERROR = .TRUE. 





01202120 

L INE 

213 


GO TO 90 





01202130 

L INE 

21 4i 

82 

CONTINUE 





01202140 

L INE 

215 

C 

GRID DATA FOR NEXT GRID SECTION IS 

CUT 

OF 

URDER 

01202150 

L INE 

216 


WRITE! I6t 2000 I 





01202160 

L INE 

217 


WR ITE ! 16, 2022 ) J, I 





0120 2 170 

L INE 

218 


ERROR = .TRUE. 





01202180 

L INE 

219 

C 






U12U2190 

L INE 

220 

90 

CONTINUE 





01202200 

L INE 

221 

C 






01202210 

L INE 

222 

C 

SECTION TO RETURN 





01202220 

L INE 

223 


NETSV = NETSV £1 NE 





0 1202230 

L INE 

224i 


IF! I SP .EQ . NSP } RETURN 





01202240 

L INE 

225 

c 

NUMBER OF SPAN CAROS READ 

DOES NOT 

AGREE WITH NO. SPANS 

!NSP i 01202250 

L INE 

226 


WRITE! 16, 2030 ] IS, JW, NSP, 

ISP 




01202260 

L INE 

227 


RETURN 





01202270 

L INE 

228 

c 






01202280 

L INE 

229 

1000 

FORMAT! A4, 2X, 912, 4E12.0 ) 





01202290 

L INE 

230 

1001 

FORMAT! 24X, 4E12.0 » 





01202300 

L INE 

231 

c 






01202310 

L INE 

232 

2000 

FORMAT!/// IX, 129(1H*> //24H ERROR IN 

PEADI NG 

INPUT. I 

CUi:0 2320 

L INE 

233 

2014 

FORMAT! 37H MODE DATA IS KISSING 

OR OUT 

OF ORDER 

; I 

01202330 

L INE 

23A 

2015 

FORMA r(42H FREQUENCY DATA IS MISSING OR 

OUT 

OF 

ORDER ) 

01202340 

L INE 

23 5 

2016 

FORMAT! 42H A LABEL CARO IS EXPECTED BUT NOT 

PRESENT. ) 

01202350 

L INE 

236 

2017 

FORMAT! 




67H CARD 

WILL B0i202360 

L INE 

237 


le PRINTED ON FOLLOWING LINE AND 

NEXT CARD WILL 

BE READ. / IX 

, U120237U 

L INE 

238 


2 A4, 2X, 9I2,4E12.0 I 





01202380 

L INE 

239 

2013 

FORMAT! 32H AN INVALID LABEL CARD WAS READ. 

I 


012J2390 

L INE 

240 

2020 

FORMAT! 27H ERROR ON GRID LABEL 

CARD, i 




01202^00 

L INE 

241 

20 21 

FORMAT! 27H GRID DATA PRESENT FOR WING, 

12, 

SH 

SECTION, 12 / 

01202410 

L INE 

242 


1 53H THIS SECTION HAS NOT BEEN 

DEFINED 

FUR THE 

STRUCTURE. ) 

01ZU242U 
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L 

INE 

243 

L 

INE 

244 

L 

INE 

245 

L 

INF 

246 

L 

INE 

247 

L 

INE 

248 

L 

INE 

249 

L 

INE 

250 

L 

INE 

251 

L 

INE 

252 

L 

INE 

253 

L 

INE 

254 

L 

INE 

255 

L 

INE 

256 

L 

INE 

257 

L 

INE 

25 8 

L 

INE 

259 

L 

INE 

260 

L 

INE 

261 

L 

INE 

262 

L 

INE 

263 

L 

IN.F^, 

264 

JC 

READ 


2022 FORM4T( 19H GRljD DATA FOR WI NG f 12# 8H SECTION, 12, 1 7H IS OdT UF01202430 
I ORDER . I U12U29<iO 

2026 FORMAT! A3H SRAN CARDS ARE CUT OF ORDER. CARD FOR SPAN, 12, 0l202',50 

1 2BH WAS read WHFN CAkD FOR SPAN, 12, 13H WAS EXPECTED ) . 01202A60 

2027 FORMAT! 25H THE WIDTH OF SPAN NUMBER, 12, 7H EQJA,l.S, ElA.s' / Ui2U2A7U 

1 42H THE SPAN WIDTH MUST BE GREATER THAN ZERO. J 0i202AB0 

2028 FORMAT! 34H THE NUMBER OF CHORD LINES IN SPAN, 12, 7H EOJALS, 13 /Ul2u2490 

1 A8H THE NUMBER OF CHORDS MUST BE GREATER THAN ZERO. I U12025UU 

2029 FORMAT! 2CH CHORD CARD FOR S^»AN, I3,iOH NOT FOUND J D12U2510 

2030 FORMAT! BH SECTION, 12, 8H OF wING, 12, 20H WAS DEFINED TO HAVE, Ui2U2320 

I 13, 7H SPANS., 14, 33H 'SPAN* CARDS WERE ACTUALLY READ. I 01202330 

2031 FORMAT! 13H CHORD LINE NUMBER, 13, SH OF SPAN, 13, 012u234U 

1 62H IS IDENTICAL TO, CROSSES, OR IS ABOVE THE PREVIOUS CHORD LINEU1202530 

2 I UI2U236U 

: UI202370 

3000 FORMA T! IH1/24X, 19HGRID INPUT FOR WING, 12, 8H SECTION, 12 ) 012023B0 

3001 FORMAT!/ 24X, 4HSPAN, 13, 4H HAS, 13 ,2/H CHORD LINES AND A WIDTH 001202390 

IF, E13.6 / 24X, 5HCH0RD, 9X, 2HXI, 14X, 2HX2 J 0120260U 

3002 FORMAT! 24X, 15, 5X, 2E16.6 » U12U2610 

3006 FORMAT! // // 20X, 21HNJMBER OF FREUUENCI 01202620 

lES, 112 / 20X, 19HLIST OF FREUUENCI ES, 5F14.4 / !39X, 5Fi4.4I » 01202630 

END 01202640 


: OF JOB. 

39.4 SEC. USED ,011 HRS. CHARGED 49.974 HRS. REMAINING 


- 6 . 31 - 




r.W 

O' 


DISPLAY.. 

.FILE 

DECK 13 


L INE 

1 


subroutine INPK 15, 16, TITLE, ITRUN, MACH, FEFLEN, XP, XPIN, 

U1300010 

L INE 

2 


1 PLJTR, IWTE,EARO, 8EETA, LAB, ID, FD, EPROP I 

; JiAUOUZO 

L INE 

5 


REAL MACH 

0130UU30 

L INE 

4 


LOGICAL ERROR, PLOTR 

01300040 

L INE 

5 


DIMEN SION TI TLE ( 14) , FD(4) , ID(9) 

01300050 

L INE 

6 


COMMON f NEXTCS / I FLUSH 

01300060 

L INE 

7 


DATA LRUN V 4HR UN / 

01300070 

L INE 

8 

C 

EARO ELEMENT ASPECT RATIO 

01300080 

L INE 

9 

C 


01300090 

L INE 

10 

C 

READ RUN CARD 

01300100 

1 INE 

U 

C 


U13J0110 

L INE 

12 


READ! 15, 1000 ) LAB, ID, FO 

01300120 

L IN E 

13 

C 


0130U130 

L INE 

14 


IF( LAB .EO. LRUN ) GO TO 2 

01300140 

L INE 

15 


WRITE! 16, 2000 ) 

01300150 

LINE 

16 


WRITE! 16, 2023 ) 

01300160 

L INE 

17 


IFLUSH = 1 

01300170 

L INE 

18 

2 

CONTINUE 

01300160 

L INE 

I'.' 


ITRUN = ID! 1) 

01300190 

LINE 

20 


PLOTR = .FALSE. 

01300200 

L INE 

21 


IF! ID!2) .EQ. 1 ) PLOTR = .TRUE. 

01300210 

L INE 

22 


IWTE = 0 

01300220 

LINE 

23 


IF! 10(3) .EQ. 1 ) IWTE = 1 

U130023U 

L INE 

24 


MACH = F0!1) 

01300240 

L INE 

25 


BEETA =SJRT( MACH* MACH-1.0) 

01300250 

L INE 

26 


REFLEN = F0!2) 

01300260 

L INE 

27 


XPIN = F0!3) 

01300270 

LINE 

28 


EARO = FD!4) 

0 1300 2 60 

L INE 

29 


IF! EARO .EQ. 0.0)EARO =1.1 

013UU290 

L INE 

30 


IF! MACH .GT. 1.0 ) GO TO 5 

01300300 

L INE 

31 


WRITE! 16, 2000 ) 

01300310 

L INE 

32 


WRITE! 16,2024 ) MACH 

01300320 

L INE 

33 


MACH = 2.0 

U130O330 

L INE 

34 


ERROR = .TRUE. 

01300340 

L INE 

35 

5 

CONTINUE 

U1300350 

L INE 

36 


IF( REFLEN .NE. 0.0 ) GO TO 6 

01300360 

L INE 

37 


WR ITE ( 1 6, 2000 ) 

01300370 

L INE 

38 


WR ITE! 16, 2025 I 

01300380 

L INE 

39 


ERROR = .TRUE. 

01300390 

L INE 

40 


REFLEN = 1. 

013U040U 

L INE 

41 

6 

CONTINUE 

01300410 

L INE 

42 


IF ! EARO .GT. 0. 0 ) GO TO 7 

01300420 

L INE 

43 


WR ITE ( 16, 2000 ) 

U13UU430 

L INE 

44 


WR ITE { 6, 2027 ) EARO 

01300440 

L INE 

45 


ERROR = .TRUE. 

01300450 

L INE 

46 


EARO = 1.0 

01300460 

L INE 

47 

7 

CONTINUE 

01300470 

L INE 

48 


XP = XP IN/(8EETA*REFLEN) 

01300460 

L INE 

49 


WRITEI 16, 3007 ) MACH, REFLEN, XPIN 

01300490 

L INE 

50 


WRITE! 16, 3019 ) EARO 

013005UU 

L INE 

51 


WRITE! 16, 3008 ) ITRUN 

01 3005 10 

L INE 

52 


IF! ITRUN .EQ. 3 J GO TO 38 

U13UU52U 

L INE 

53 


IP! I TR UN .Nc. 1 ) GO TO 8 

01300530 

L INE 

54 


WR ITE! 16, 3009 ) 

01300540 

L INE 

55 


GO TO 9 

01300550 

L IN E 

56 

. . 88 

CONTINUE 

01300560 
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L INE 

57 


L INE 

58 


L INE 

59 

B 

L INE 

60 


L IN E 

61 

9 

L INE 

62 


L INE 

63 


L INE 

64 


L INE 

65 


L INF 

66 

11 

L INE 

67 


L INE 

68 

12 

L INE 

69 


L INE 

70 


LINE 

71 


L IN E 

7 2 


L INE 

73 

1000 

L INE 

74 

2000 

L INE 

75 

2023 

L INE 

76 


L INE 

77 


L INE 

78 

20 24 

L INE 

79 


L INE 

80 


LINE 

81 

2025 

L INE 

82 


L INE 

83 


L INE 

84 


L INE 

85 


L INE 

86 

2026 

L INE 

87 


1. INE 

88 


L INE 

89 

2027 

L INE 

90 


L INE 

91 


LINE 

92 


L IN E 

93 

3007 

L TNE 

94 


L INE 

95 

3008 

LINE 

96 

3009 

L IN E 

97 

3010 

L INF 

98 

3011 

L INE 

99 

3012 

L INE 

100 

3013 

L INE 

101 

3014 

L INE 

10 2 

3015 

L IN E 

10 3 

3016 

L INE 

104 

3017 

L INE 

10 5 

30 18 

L IN E 

106 

3019 

L IN E 

107 



10 42 ) 

11 


WR 1TE4 16, 3018 t 
GO T3 9 
CONTINUE 
WR ITE ( 16, 3010 » 

CONTINUE 

WRITE! 16, 3011 ) 

1F( PLQTR ) GO TO 
WRITE! 16,3012) 

GO TO 12 
CONTINUE 
WRITE! 16, 3013 
CONTINUE 

WRITE! 16, 3015 ) IWTE 
IF! IWTE ,NE. I ) WRITE! 16, 3016 I 
IF! IWTE .EQ. 1 ) WRITE! 16, 3017 ) 

RETURN 

FORMAT! A4, 2X, 912, AE12.0 ) 

FORMAT!/// IX, L29I1H«) //2AH ERROR IN READING INPUT. ) 

FORMAT! 38H RUN CARD IS MISSING OR OUT OF ORDER / 89H RUN CARD MUS 
IT IMMEDIATELY FOLLOW THE TITLE CARD AND 3E THE SECOND CARD IN THE 
2INPUT DECK / 18H JOB IS TERMINATED ) 

FORMAT! 37H MACH NUMBER MUST BE GREATER THAN 1.0 / 2AH MACH NUMBE 

IR WAS READ AS, E13.6 / 80H MACH NUMBER WILL BE SET bOJAL TU 2.0 IN 

2 AN ATTEMP TO CHECK THE REST OF THE DATA // ) 

FORMAT! 56H REFERENCE LENGTH WAS READ AS 0.0. THIS IS NUT ALLOWE 
ID, / 87H REFERENCE LENGTH WILL BE SET EWJAL TO l.O IN AN ATTfcMPT 

2T0 CHECK THE REST OF THE DATA./U6H REFERENCE LENGIH MUST BE INPUT 

3 AS A NON-ZERO FLOATING POINT NUMBER IN COLUMNS 39 THROUGH 48 OF T 
4HE UN • DA TA CARD. // ) 

FORMAT! 92H OFF-DTAGONAL PERCENTAGE, IF ENTERED, MUST BE GKfcATb 
IR THAN OR EQUAL TO 0.0 AND LESS THAN 1.0 / 37H OFF-OIAGUNAL PbHCEN 
2TAGE WAS INPUT AS, E16.6 // I 

FORMAT! 61H ELEMENT ASPECT RATIO, IF ENTERED, MUST BE A PUS IT IV 
IE NUMBER. /33H ELEMENT ASPECT RATIO WAS READ AS, E13.6 / 

2 97H ELEMENT ASPECT RATIO WILL BE SbT EQUAL TO l.O IN AN ATTEMPT T 
20 CHECK THE REST OF THE INPUT DATA. / ) 

20X, IIHMACH NUMBER, F22.5 / / 20X , 16 HREFERENCE LENGTH, 


FORMAT! 
1 FIT. 5 
FORMA T( 
FORMAT! 
FORMAT! 
FORMA T! 
FORMAT! 
FORMA T! 
FORMAT! 
FORMAT! 
FORMA T( 
FORMA T( 
FORMAT! 
FORMAT! 
END 


// 20X, 20HPITCH1NG MOMENT AXIS, F13.5 » 

/ 20X, 13HRUN TYPE CODE, 120 I 
20X, 22H1C0MPLETE RUN ATTEMPT)) 

20X, IIHICHECK RUN) ) 

/ 20X,17HPL0T REQUEST CODE, 116 ) 

20X, 24HINQ PLOTS ARE REQUESTED) ) 

20X, 21HIPL0TS ARE REQUESTED) ) 
/20X,23HGFP-0i AGONAL PERCENTAGE, FID. 5 ) 

/ 20X, 16HWAKE EFFECT CODE, 117 ) 

20X, 3IH(WAKE EFFECT IS NOT CONSIDERED) 
20X, 27HIWAKE EFFECT IS CCNSIUEREO) ) 
20X, 13H {RESTART RUN) ) 

/ 20X, 20HELEMENT ASPECT RATIO, F13.5 ) 


0130U570 
UI3D0580 
U13UU59U 
OlBOUcOO 
01300610 
01.300620 
01300630 
013UU640 
U13U0650 
013UU660 
0130U6/U 
013006b0 
0130U690 
01300/00 
0130U710 
01300720 
01300/30 
01300740 
01300/50 
01300760 
01300770 
01300780 
01300790 
01300800 
01300810 
01300820 
01300830 
01300840 
01300850 
01300860 
01300870 
01300880 
013U0890 
01300900 
01300910 
01300920 
01 300930 
01300940 
01300950 
01300960 
01300970 
01300980 
01300990 
01301000 
0130 1010 
01301020 
01301030 
01301040 
01301U5U 
0130 1060 
U1301U70 
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OF POOR 



CISPLAV . . 

.FILE 

DECK 14 





L INF 

1 


FUNCTION IRELE ( GT.GW.NET) 




01400010 

L INE 

2 


COMPLEX G 8 AR» Rlt RIS 




014U0020 

L INE 

3 


COMMON / CEPS/ EPS 




01400030 

L INE 

'f 


COMPLEX GT(l) » GWm 




01400040 

L INE 

5 


IRELE =l 




01400050 

L IN E 

6 


ANET = NET 




014U0060 

L INE 

7 


RABS3 = 0.0 




014000 70 

L INE 

8 


DO 600 IEL = 1,NET 




01400080 

L INE 

9 


GTARS= CAB SOIGTdELJ ) 




014000S0 

L INE 

10 


GABSW= CABSa < GWUEUI 




014J0100 

L INE 

11 


IF (GABSW .EQ. 0.0 .AND. GTAdS 

.EQ. 

3.0) 

ANET = ANET -l.O 

01400110 

L INE 

12 


IF (GABSW .EU. 0.0 .AND. GTABS 

.EQ. 

0 . 0 ) 

GO TO 600 

01400120 

LINE 

13 


R I = GT( lELl -GW(IEL) 




01400130 

L INE 

14 


RIS= RI * RI 




01400140 

L INE 

15 


IF( GTABS. NE. O.OJ RIS = RIS 

/ GTIIEL) 


01400150 

L INE 

16 

600 

RA953 = CABSO( RISI&RABSO 




01400160 

LINE 

17 


ERROT RABSO / ANET 




01400170 

L INE 

18 


ERROR = SORT! ERROR) 




014U01B0 

LINE 

19 


IF (ERRDR.GT.EPS ) RETURN 



0140 0190 

L INE 

20 


IRELE = 0 




01400200 

L INE 

21 


RETURN 




01400210 

LINE 

22 


END 




01400220 
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t 


DIS PLAY .. 

.FIL E 

DECK 15 


L !NB 

1 


SU8R3'JT1NE ITRAFE ( 1.9 . N WP , \ '/.V , Dt I P » DNW B, DNW I , K,VH,RwI 

, 01500010 

L INE 

2 


1 NET, A, 12 .GaESS.UW) 

U15U0U20 

L INE 

a 


COMPLEX 3 'rtf GTf.VW 

01500030 

L INE 

A 


COMPLEX Grt'ESS 

015JU040 

L INE 

5 


REAL NWI 

01500050 

L INF 

6 


INTEGER PRINT 

01500060 

L INE 

7 


DIMLNSICN A (NET)., I 2 (NET) 

UI500U70 

L INE 

8 


OIMH SION 0 ( ,m: ,MC» , I P(MC) ,DNWR(MC) ,DNWI ( MC) , RWR(MC), KN l( MC ) 

U15DUUhU 

L INE 

9 


DIMfc'ISION UrtESS(200). 

0150UU90 

L INF 

10 


DIMEN Slu.N NRR (200) ,NN1 (200) ,GW(230) ,GT(20D ) 

0 1500 100 

L INE 

11 


DIMENSION WW(200) 

01500110 

LINE 

12 


common /CEPS/ EPS 

U1500120 

L INE 

13 


COMMON /HERAT/ ITMAX 

01500130 

L INE 

1^ 


common /ITG/ IGWESS 

01500140 

L INE 

15 


COMMON /KH12/ KST11,KST12 

U15U0150 

L INE 

16 


COMMO.n /TAPE/ IN, MO 

01500160 

L INE 

17 


COMMON / VELCOM / NMAX, PRINT, NWBLOK, NNROW( 20), 

01500170 

L INE 

18 


REWIND lie 

01500180 

L INE 

19 


NWING = .NET 

01500190 

L INE 

20 


IF (NWRLOK .Eg. 1) GO TO 700 

015002C0 

L IN E 

21 


IMAX=>50 

01500210 

1 INE 

22 


IF ( ltmax.ne.o) imax=itmax 

01500220 

L INE 

2 3 

C 


015002J0 

L INE 

24 

C 


01500240 

L INE 

25 

C 

SET CONVERGENCE CRITERIA - EPS 

01500250 

LINE 

26 

C 


01500260 

L INE 

27 

c 


01500270 

L INE 

28 


ALF1=(0.9 

01500260 

L INE 

29 


ALF 2=1.1 

01500290 

L INE 

30 

10 

AL F=ALFl 

015003C0 

L INE 

31 


REWIND 19 

01500310 

L INE 

32 


00 90 N=L, NWING 

U15U0J20 

L INE 

33 


GT(N)=0. 

01500330 

L INE 

34 

90 

continue 

01500340 

L INE 

35 

100 

lT = i 

01500350 

L INE 

36 


itest=o 

01500360 

L INE 

37 


1F( IGWESS.NE .0) GO TO 166 

01500370 

L INE 

38 

700 

CONTINUE 

01500380 

L INE 

39 


IW=1 

01500390 

L INE 

40 


IW1= 1 

01 50 0 4 CO 

L IN E 

41 


DO 16 0 NN=1,NWBLDK 

01500410 

L INE 

42 


lNROW=NWROh(NN). 

01500420 

L INE 

43 

* 

ncol=nrqw . 

01500430 

L INE 

44 


R EAD( I 10) D , IP 

01500440 

L INE 

45 


DO 155 I=lfNRQW 

01500450 

L INE 

46 


RWF ( L) = NWR (IWI) 

0150U460 

L INE 

47 


RWUL) = NWI (iWi) 

015004 10 

L INE 

48 


Iwl= IWUI 

01500480 

LINE 

49 

155 

CONTINUE 

01500490 

L INE 

50 


CALL SOLVE(NR0W,NMAX,0,RWR ,IP) 

O150O5UO 

L INE 

51 


CALL SOL VE( NR JWfNMA X,0 ,RWI ,IP) 

01500510 

L INE 

52 


CALL TMAX( NET, R WR , RMAXR) 

01500520 

L INE 

53 


CALL TMAX< NET, RWI., K.MAXI) 

01500530 

L INE 

54 

148 

DQ 15 0 J=1,NC0L 

01 500540 

L INE 

55 


GW( IW X'NPLX IRWR ( J) ,RWI ( J) ) 

01500550 

L INF 

56 


IW=IWC1 

01500560 


-6.3L;- 







L tNE 

57 

150 

CONTI.NUE 



01500570 

L 

5 a 

loO 

CONTl.'JUE 



015005BO 

1. INE 

59 

16 6 

CON 1 I.^J UE 



01500590 

L IME 

60 


IFIN.'HLOK.EQ.l) GO TO 530 



Ul 500tCU 

L r\E 

61 

172 

CONTI.NUE 



01500 6 10 

L TNE 

62 


REwHO 110 



01500620 

L INfe 

6 3 

190 

IF ( U6SIPR INT) .LT.3) GO TO 200 . 



01500630 

L INE 

64 

C 

WR ITE (6,630) IT 



01500640 

L INE 

65 

C 

WRITE (6,650) NWI.NG, IGW(N) ,N=1,NWING) 


0 1500650 

L INE 

6 6 

200 

CONTI.NUE 



01500660 

L INE 

67 


IF I I TEST.EO.O.ANO. I T. NE. 1) CO TO 530 



01500670 

L INE 

68 


IF ( I.T.EQ .I.NAXi GO TO 540 



uL 5J066O 

L INE 

69 

330 

JJ=0 



01500690 

L INE 

70 


IT = IT61 



0 1500 700 

L INE. 

71 


I 1 = 1 



01500710 

L INE 

72 


ITESr=0 



01500720 

L INE 

73 


REWIND 19 



01500 730 

L INE 

74 


REWIND 110 



01500740 

L INE 

75 


JJ = 0 



01500/50 

L INE 

76 


I 1=1 



01500760 

LINE 

77 


L=0 



01d007 70 

1. INE 

70 


L 1=0 



01500780 

L INE 

79 


DO 5L0 I=1,NW3L0K 



U150U/90 

L IN E 

80 


NROW=i'JWRJWI I ). 



0 1500BC0 

L INE 

81 


R EAO (110) 0 ,IP 



01500810 

L INE 

82 

C 

IF ( lABSlPRINT) .LT. 3) GO TO 340 



01500820 

L INE 

83 

C 

WR ITE- ( 6, 564) I ,NROW 



U1500830 

L INE 

8 4 

C 

WR ITc ( 6,566) NROWiO 



0150UB40 

L INE 

85 

C566 

FQRMATdHO, 7HITRATE , 7HNR0W= , 1.3, / (lX.lOFIO. 

5) ) 

01500850 

L INE 

86 

C 

WR ITE ( 6, 562) NROW,! P 



01500860 

LINE 

3 7 

C340 

CONTINUE 



01500870 

L INE 

08 

C562 

FORMAKIHC, 7HITRATE , 7HNRDw= t I3i / (lX.iOFlO. 

5 ) ) 

01500880 

L INE 

8 9 

C564 

FORMA T( IHO, 7HITRATE , lOHBLOCKNQ. , 113, H8, 

5H 

RUrtS ) 

01500890 

L INE 

90 


DO 471 J = l,NR.'OW 



01500900 

L INE 

91 


L = L£>1 



U1500910 

L INE 

92 


0,NWIUJ)=0.0 



0150 0920 

L INE 

93 


ONWI(J)=0.0 



01500930 

L INE 

94 

C 

IF (N WING.LE JNMAX) GO TO 470 



O150O94O 

L INE 

95 


IFIL.GT. KSTll) NNZ =0 



01500950 

L INE 

96 - 


IF(L ,GT. KSTll) GO TO 470 



015UU960 

L INE 

97 


IFILL.LT. L ). 



015009 70 

L INE 

98 

IREADI 15) LI, NN6, ( I Z (M) ,M=1 . NN2) , I AI M) ,M= i ,NNZ J 



01500980 

L IN E 

99 


IFILL.GT.L) NNZ=0 



01500990 

L INE 

100 


IFINNZ .EO. 0) OQ TO 470 



015010C0 

L IN t 

101 


OQ 460 M=L,NNZ 



01501010 

L INE 

102 


K= I.ZI.M ) 



U1501U2U 

L INE 

10 3 


DNWRI J )= DNWR:( JJ C A (M) -C REAL (GWIK)). 



01501030 

L INE 

10 4 

460 

ONwK J ) = ONwM J) E AIM) AIMAGC GWIK)) 



01501040 

L INE 

105 

'470 

RWR(J )= NWR( JEJJ) -DNWR(J) 



01501050 

L INE 

106 


RWI(J)= NWI(JEJJ) -DNWI (J) 



0150106U 

L INE 

107 


IF ( TABS (PR INT) .LT. 3) GO TO 471 



01501070 

L INE 

108 

C 

KR1TE(6, 3000) J, J1 ,ONW ( J) , NW( J) ,RW1J) 



01501060 

L IN e 

109 

C3000 

FORMA T( 4X, 27H J , J1 ,ONW( J) ,NW (Jl ,RW< J) = /(6X, 

214 

,6bL2.4) ) 

01501090 

L IN E 

110 

471 

CONTINUE . 



015011C0 

L INE 

111 


CALL SOLVE ( NR-OWtNMAX ,D ,RWR, IP ) 



015U1 1 10 

L r^J E 

112 


CALL SOLVE (NR0W,N.^1AX ,0 ,RWI , IP ) 



01501120 

L INF 

113 


DO 5J0 M = 1,NR3W 



01501 130 

L INE 

114 


GT( n.J=GW( I I ) 



0150x140 

L INE 

115 


SAVE = WW<H) 



0 1 50 1 1 bo 

L INE 

116 


Gw( 1,1.) = CMPLXI RWR(M), RWllM)) 



01501 160 

L INE 

117 


W..(< 11 )5=GW( II )-G r« I I ). 



015'JIL 70 

L IN E 

1 18 


IF( IT .E0.2) GU TO 490 



01 50 11 80 
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0 


0 ? ' 


v'S\ 


L I N fc“ 

119 



SAVC»VW( II )♦ SAVE 

015UU90 

L INE 

120 



AL F=.\LF 1 

015J12C0 

L INE 

121 



IF I SAVE.GE.O.J ALF=ALF2 

01501210 

L INE 

122 


490 

CONTI MUE 

U15J1220 

1 IN’E 

123 



GwI 11 »-ALF«GW( I U E( l.-Ai FM-G H m 

0 1501230 

L INE 

12^ 

C 


IT6ST = iKcLEIGTiri > , Gwdl), ir^'STI 

015 J 1240 

L INE 

125 



II=ILai 

01501250 

L INE 

126 


500 

CONTI.nIUE 

01501260 

L INE 

127 



JJ=JJ SNWROWI I) 

01501270 

L INE 

128 


510 

GONTMUE 

0150 1280 

L INE 

129 



IIESr = IRELEIGT, Gw, NET! 

015U1290 

L INE 

130 



GO rj 190 

01 50 13 CO 

L INE 

131 


530 

WR ITE ( 6,580) I r,EPS 

0 150 1310 

LINE 

132 



RETURN 

01501320 

L INE 

133 


540 

WRITE ( 6,590) IMAX,EPS 

01501330 

L INE 

134 

C 


IF { I.'IETH .EO .0) GO TO 55 0 

0150 13 40 

L INE 

135 

C 


IMETH=0 

01501350 

L INE 

136 

c 


GO T3 60 

01501360 

L INE 

137 


550 

CONTINUE 

0150.13/0 

L INE 

138 



WRITE ( 6,600) 

01501380 

L INE 

139 



WRITE (6,650) NWLNG , (GT IN) , N= 1 , NW I NG) 

01501390 

L INE 

140 


560 

WRITE (6,610). 

01501400 

L INE 

141 



WRITE (6 ,6501 NWI NG , ('GW ( N) ,N= 1 , NW 1 NG) 

01501410 

L INE 

142 



RETURN 

01501420 

L IN E 

143 

c 



01501430 

L INE 

144 

c 



01501440 

L INE 

145 


570 

F'JRMA.T ( 2X, lOriRW(N) ,N = 1 , ,13/(1 X.iOFlO.S n. 

01501450 

L INE 

146 


580 

FORMAT (1H0,30HTHE I TcR A TI ON C CNVt RG EO AFTER , 13 ,2X ,35HITERAT IONS 

01501 460 

L m B 

147 


IWITH 4 TEST CRITERION OF.EU. 7) 

015014/0 

L INE 

■140 


590 

F0.C1AT (lH0,37HfHe IfERATION DIO NOT CONVERGE AFTER , I 3, 2X, 3 5H IT EK 0 150 1480 

L INE 

149 


lATlQNb WITH A TEST CRITERION OF, FI 0.71 

01501490 

L INE 

150 


600 

format (lH0,41HrHE SOLUTION AT THE PREVIOUS ITEPATIUN IS) 

015015C0 

L INE 

151 


610 

FORMAT (1H0,40HTHE SOLUTION AT THE PRESENT ITERATION .IS) 

01501510 

L INE 

152 


630 

FORMA T ( 17H0I TERATI.ON NUMBER, 14) 

01501520 

L INE 

153 


650 

FORMAT! 2X, lOHGw(N) ,N=l, ,I3/(4X, 6E18.6)), 

01501530 

L INE 

154 

c 



015U1540 

L INE 

155 



END 

U15U1550 
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/ 


DISPLAY. ..file 


DECK 16 


L INE 
L INE 
L INE 
L IMS 
L INE 
L IN E 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


SUbP.DUTINE LOOPWI NET, NWING, XYZ, NSP, 

1 NSECT, ZSECT, I SUNS , 16, TAPE8, XCEN, AREA, 

2 WTERUW,LRWTE,PEKC ,ERR^R, IWTE, KfcFLbN) 


SYM, 

WRUW 


TRS, NNCH, 
LRECL, 


NE, 


NET 

NTERM 

NWING 

XYZ 

NSP 

SYMI J) 

TR S 

NNCH 

NE(I,J) 


TOTAL NUMBER UF ELEMENI'S 

NU.MMEK OF TERNS IN INFLUENCE FUNCTION 
NUMuER OF WINGS IN STRUCTURE 
COORDINATE ARRAY OF ALL ELEMENTS 
NSPdtJ), NU. SPANS IN SECTION I OF WING J 
SYMMETY CODE FOR WING J 

TRSU,J,1I TRANSFORMATION MATRIX OF SECT. 
ELEMENT NUMBER AT END OF SPAN 
NUM3ER OF ELEMENTS IN SECTION 1 OF WING J 


I OF w ING J 


NSECTI5) NUMBER OF SECTIONS IN WING J 

ZSECT(I,J) Z COORDINATE OF ALL ELEMENTS OF SECTION I, WING J 
ISONS BOOLEAN MATRIX TO TELL IF ONE SECTlUN HAS INFLUENCE 
IS0NS(K1,K2» = 1 IF SETION K2 HAS INFLU. ON REC. SECIION Kl 
UNIT NUMBER FOR OUTPUT (PRINTER) 

UNIT NUMBER OF TAPE TO CONTAIN FRF.QU ENCY - INDh- 
TERMS 

OF EACH ELEMENT (OUTPUT) 


16 

TAP68 


XCEN 

XO 

YRO 

YLO 

AREA 

WROW 

LRECL 

ERROR 


LOGICAL 
LOGICAL 
PENDENT 
X CENTER 


X 

Y 

Y 

AREA 


COORDINATE OF RECEIVING PT. 
COORDINATE UF RECEIVING PT . 
COORDINATE CF RECEIVING PT. 
FOR EACH ELEMENT (OUTPUT) 


(CENTER OF ELEMENT ) 
(IN RIGHT S IDE ) 

(IN LEFT SIDE ) ) 


STORAGE FOP FREOUENCY TERMS FOR ONE RECEIVING ELEMENT 
length of wRQW EQUAL 10 NTERM^NET 
LOGICAL SET TO TRUE IF ERROR IS DETECTED 
COMPLEX WTEROW(LRWTE) 

COMPLEX WTES 
REAL MACH 
INTEGER TAPES 
8KWSP 
ERROR 
TREDGE 

WAKE ,WAKE1 ,WAKENZ 
WAKE 2 

I S0NS(12,1) , TRS(4,3,1), 

NNCH( 1) , SYM(l) 

NSECT(l), NE(3,1), ZSECT(3,1), XCEN(l), XYZ(l), 
WFSV(20) 

WRDW( LRECL) 

CDMMDN/BASIC /MACH 

COMMON / FQl / NFR60, CF(12,30), FREQ(12), FREQPdZ), FRTEST 
COMMDN / RRLL ( TVW(4| , YRO, YLO, ZR, ZPZR, ZL, ZLZL, IRC, I IN 
COMMON /TAPE/ 19,110,111 ,112,115,114, J9, 115 
COMMDN/WAKEUP/ rtTES(12), TPEDG E , W AKE 1 , W AKE , WAKENZ, KWAKE 
COMMON / WWl / XD, YU,ZD ,ZDZD , SYMK, NINSID 


LOGIC AL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGIC AL 
DIMFN SION 
DIMEN SION 
DIMENSION 
DIMEN SION 
DIMEN SION 


NSP( 3, 1 ) 


AREA! 1) 


THE FREQUENCY-INDFPENDENT TERMS FOR ALL INFLUENCING ELEMENTS 

OF A GIVEN RECEIVING ELEMENT ARE STORED IN WROW 

COMPUTE 1 ROW FOR EVERY ELEMENT (CALLED R EC E IV I NG EL EM ENT ) 

N TERMS IS THE NO. TERMS USED TC COMPUTE AN ELEMENT OF W 
INDXR INDEX INTO XYZ FOR RECEIVING ELEMENT 
INDXl INDEX INTO XYZ FDR INFLUENCING ELEMENT 
IRC RECEIVING ELEMENT COUNTER 
IIN INFLUENCING ELEMENT COUNTER 


0160UU10 
01600020 
01600030 
01600040 
01600050 
01600060 
01600070 
01600080 
01600090 
O16O0 100 
01600110 
01600120 
01600130 
01600140 
01600150 
01600160 
016001/0 
01600180 
01600190 
01600200 
01600210 
D16JU220 
01600230 
01600240 
01600250 
01600260 
01600270 
01600280 
016U0290 
01600300 
01600310 
01600320 
01600330 
01600340 
01600350 
01600360 
0160U370 
016U0380 
01600390 
01600400 
01600410 
01600420 
016UU430 
01600440 
01600450 
01600460 
016U04 /O 
01600480 
01600490 
01600500 
01600510 
01600520 
01600530 
01600540 
01600550 
0160U560 
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L INE 

57 

C 


K1 IS COUNTER FOR RECEIVING SECTIO^ 

1, K2 

FOR INFLUENCING SECT 

.01600570 

L IN E 

58 



IFI IWTE.NE.OJ REWIND 115 




01600580 

L INE 

59 



REWl'JD TAPE8 




01600590 

L INE 

60 

C 






0160U600 

L INE 

61 



WR I TE 




01600610 

L INE 

62 



1 IT4PE8) MACH, NET, RcFLEN, U'”'-"'' NFREO, 

(FREQI U, 1=1, NFREQ) 

01600620 

L INE 

63 



IF! IWTE.NE.OJ 




01600630 

LINE 

6^ 



1WRITE(I15) MA:h,NET,REFLEN,I WTE, NFREQ, 

(FKEQ(I)c 1=1, 

NFREOI 

0X600640 

L INE 

65 

C 






01600650 

L INE 

66 



WAKE = .FALSE, 




01600660 

L INE 

67 



INDXR = 1 




016006)0 

L INE 

68 



IRC = 0 




01600680 

L INE 

69 



K1 = 0 




016006SU 

L INE 

70 



KW = 0 




01600700 

L INE 

71 



KWAKE = 0 




01600710 

1 iKi P 

7 p 

r 















- 0^600720 

L INE 

I TM C 

73 

74 

C 

r 


ICOL = 1 




01600730 









-01600 740 

L INE 

75 

c 


LOOP ON RECEIVING ELEMENTS BY WING 

J AND 

S ECr ION 

I OF W ING J 

01600750 

L INE 

76 

c 






01600/60 

L INE 

77 

c 






016007 70 

LINE 

78 



DO 100 J=1,NWING 




01600780 

L INE 

79 



NSR * NSECTUJ 




01600790 

L INE 

80 



SYMK = SYMiJJ 




01600800 

LINE 

81 



DO 95 1 = 1, NSR 




01600810 

L INE 

8 2 

c 





. 

01600820 

L INE 

83 



K1 = K1 E 1 




01600830 

L INE 

84 



NER - NE(I,Ji 




01600840 

L INE 

85 

c 


ZSECT(I,J| Z COORDINATE OF SECTION 

l,WING J 


01600850 

L INE 

66 



ZCR = ZSECni,J) 




01600660 

L INE 

87 

c 


LOOP ON THE NUMBER OF ELEMENTS IN SECT. 

I OF W ING 

J IREClfcV. 

101600870 

L INE 

88 

c 






01600880 

L INE 

89 



DO 90 IER = 1,NER 




01600890 

L INE 

90 

c 






01600900 

L INE 

91 



WAKE2 = .FALSE. 




01600 910 

L INE 

92 



IRC = IRC. e 1 




01600920 

L INE 

93 

c 


FIND CENTER P T. ( XO , YCR , ZCRI IN RECEIVING 

S ECT ION 

SYSTEM 

01600930 

L INE 

94 



XO = XCENURCI 




01600940 

L INE 

95 



YCR = . 50*{XYZ(INDXRE4» EXYZnNDXRES) ) 




01600950 

L INE 

96 



DSX ± 0.5*IXYZnNDXRC5J-XYZ(IN0XRE4) ) 




01600960 

L INE 

97 



AREA! IRC )=DSX*=(XYZUNOXRE3)-XYZ(INOXRI EXYZI I NDXRE 2 1 -X YZ ( INUX RE 1 1) 01 600970 

L INE 

98 

c 


ZCR IS CONSTANT FOR ALL ELEMENTS 

IN SECr ION 1 

OF W ING J 

01600980 

L INE 

99 



INDXR = INOXR E 6 




01600990 

L INE 

100 

c 






U160I000 

L INE 

101 



IFI I'WTE ,EQ. 0 ) GO TO 50 




01601010 

L INE 

102 



DO 45 T6I=1,LRWTE 




01601020 

L INE 

103 


45 

WTEROWtlEII = 10. 0, 0.0) 




0160 1030 

L INE 

10 4 


50 

CONTINUE 




01601040 

L IN E 

105 

c 






01601050 

L INE 

106 

c 






01601060 

LINE 

107 

c 


FIND DIAGONAL ELEMENT 




01601070 

L IN E 

108 



CALL RTOI I TRSI1,1,J), TRS(1,I,J), YCR., 

ZCR, 

ZRO, ZLO 

) 

0160 1080 

L INE 

109 



ZR = ZRO - ZCR 




01601090 

L INE 

no 



ZL = ZLO E ZCR 




01601100 

L INE 

111 



ZRZH = ZR*ZR 




01601110 

L INE 

112 



ZLZL = ZL«=ZL 




01601120 

LINE 

113 



TREOGE = .FALSE. 




01601130 

L IN E 

114 



N IN SID =0 




01601 140 

L INE 

115 



I IN = IRC 




0160 1150 

L INE 

116 



INOXl = 6«IRC - 5 




01601160 

L INE 

U7 



ICQL = NFREQ>!‘IIRC->1) Cl 




01601170 

L INE 

118 

c 






016QL180 
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L INE 
LINE 
L INE 
L fNE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 



119 


CALL WINTURI XYZIINDXII, XYZ(lNDXU4»i WROWIlCOLl 1 



01601190 

120 

C 




0 160 1200 

121 


WII = WROWnCOLI 



01601210 

122 

C 




01601220 

123 

C 




01601230 

124 

C 




01601240 

125 

C 

SET LP CONSTANTS FOR INFLUENCING ELEMENTS 



O1601250 

126 

C 




01601260 

127 


INDXI = 1 



01601270 

128 


I IN * 1 



01601280 

129 


NSPl =0 



01601290 

130 

r 

K2 = 0 



01601300 

X X 





“ U XoU X J XU 

132 

1 "a a 

c 

ICQL * 1 



01601320 

1 J D 





“ U i OU 1 3 JU 

134 

c 




01601340 

135 

c 

LOOP ON INFLU. ELEMENT BY WING J J , SECT I UN II 

(DO 85, 

DU 80)01601350 

136 

c 




01601360 

137 


00 85 JJ = 1,NWIN3 



016013 70 

138 


SYMK = SYM(JJ) 



O160I3B0 

139 


NSI » NSECTIJJ) 



01601390 

140 


DO 80 II =1, NSI 



01601400 

141 

c 




01601410 

142 

c 

NEI NO. ELEMENTS IN SECTION II OF WING JJ 



01601420 

143 


NEI * NE { II ,JJ) 



01601430 

144 


NSPS = NSPUItJJI 



01601440 

145 


K2 = K2 S 1 



01601450 

146 

c 

CHECK IF SECTION K2 HAS ZERO INFLUENCE ON SEC! ION K1 


0160L460 

14 7 


IF( iS0NS(Kl,K2) .NE. 0 1 GO TO 60 



01601470 

l48 

c 




01601480 

149 

c 

SECT. K2 HAS ZERO INFLUENCE ON SECT. Kl 



01601490 

150 

c 




01601500 

151 


NTNEI = NEI*NFREQ 



01601510 

152 


00 55 IEI=1, NTNEI 



01601520 

153 


WRDWI ICOL ) = 0.0 



01601530 

154 


ICOL = ICOL C 1 



01601540 

155 

55 

CONTINUE 



01601550 

156 


INDXI = INDXI G 6*NE1 



01601560 

157 


I IN = I IN E NEI 



01601570 

158 


NSP I = NSPI E NSPS 



01601580 

159 

c 

LOOP TO NEXT INFLUENCING SECTION II 



01601590 

160 


GO TD 80 



U16U160U 

161 

c 




0160 1610 

162 

60 

CONTINUE 



01601620 

163 

C 

SECTION IS ASSUMED TO HAVE SOME ELEMENTS WITH NON-ZERO 

IN FLU 

-01601630 

164 

C 

ENCE. EACH ELEMENT MUST BE CONSIDERED, 



0160 1640 

165 

C 




01601650 

166 

c 

TRANSFORM CENTER PT. FRCM RECEIVING SECTION SYSTEM TO 

INFLU- 

01601660 

167 

c 

ENCING SECTION SYSTEM.. X IS SAME IN 8UTH SYSTEMS. 


016016 70 

168 

c 




01601680 

169 


CALL RTOI 1 TRSIltltJ)! TR S ( 1 ♦ 1 1 » J J) , YCR, ZCR, ZRO, 

ZLO ) 


0160 1690 

170 

c 




U16U1 700 

171 

c 

ZD DIFFERENCE BETWEEN Z* S OF INFLU. AND 

RECEIV 

. EL EM 

.01601 710 

172 

c 

Z02D IS THE SQUARE OF THE DIFFERENCE OF THE KEC 

AND INFL Z'S 

□1601720 

173 


ZR = ZRO - Z SEC T(I I , JJ) 



01601 730 

174 


ZL = ZLO C 2SEC T(I I , JJ) 



U16U174U 

175 


ZRZR = ZR*ZR 



01601750 

176 


ZLZL = ZL^ZL 



01601760 

177 

c 




U 1601 770 

178 

c 

LOOP ON SPANS OF INFLUENCING SECTION 11 OF WING 

JJ DO 

76 lSPOi.601780 

179 

c 




U 160 1 790 

180 


DO 75 ISP=l.NSPS 



016UIBU0 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


L INE 

181 

C 




01601610 

L INE 

182 



N5PI = NSPI 8 1 


U16U 1820 

L INE 

183 



NFPSMl = NNCHINSPI ) - IIN 


01601830 

L INE 

18A 



NEPS = NEPSMl £ 1 


01601840 

L INE 

185 

c 




01601 850 

L INE 

136 

c 


BUMP I NO XI AND I COL TO 

LAST ELEMENT IN SPAN 

01601860 

L IN E 

187 



IIN = IIN 8 NEPS 


0160 1870 

L INE 

188 



INOXI = INDXI 8 bONEPSMl 


01601880 

L INE 

185 



ICnL = ICOL 8 NFREU*NEPSM1 

' 

01601890 

L INE 

190 



DKWSt* = .FALSE. 


01601900 

L INE 

191 



NINSIO = 0 


01b0l910 

L INE 

192 



TREDSc = .TRUE. 


01601920 

LINE 

193 

c 




01601930 

L INE 

19^. 

c 


LOOP ON INPLU. ELEM. OF 

SPAN ISP FROM BOTTOM UP 

DO 70 lEl 01601940 

L INE 

195 

c 




05,601950 

L INE 

196 



DO 70 lEI = IfNEPS 


01601960 

L INE 

197 

c 




016019/0 

LINE 

198 



IIN = IIN - 1 


01601980 

L INE 

199 



IF( BKWSP ) GO TO 65 


01601990 

L INE 

200 



WAKEl = .FALSE. 


01602000 

LINE 

201 

c 




01602010 

L INE 

20 2 



CALL WINTGRI XYZIINDKI), XYZUN0XI84K WRDWllCOLI ) 

01602U20 

L INE 

203 

c 




UL602030 

LINE 

204 



TREDGE = .FALSE. 


016U2040 

L INF 

20 5 

c 




01602C50 

L INE 

206 



IF( N INSID .EQ. 0 ) GO TO 69 


01602060 

L INE 

20^ 

c 




016020 /O 

L INE 

20p ; 



IF< .NOT. WAKEl ) GO TO 58 


01602080 

L INE 

20’S : 



WAKE = .TRUE. 


01602090 

L INE 

2lO ■ 



WAKE2 = .TRUE. 


UL6021U0 

L INE 

21^ , 



INOWK = NFREQ*(NSPI-1) 


01602110 

L INE 

212 



DO 56 IW=1,NFRE0 


01602120 

L INE 

213 



INOWK = INOWK 8 1 


01602130 

L INE 

214 



WTEROWI INDWK) = WTES(IW) 


01602140 

L INE 

215 


56 

CONTINUE 


01602150 

L INE 

216 


58 

CONTINUE 


01602160 

LINE 

217 

c 




016021/0 

L INE 

218 



IF( N INSID .EQ. 1 1 GO TO 69 


01602180 

L INE 

219 



RD = A8S( WROWdCOU / W! I ) 


01602190 

L INF 

220 



IF! RO .GT. PERC ) GO TO 62 


01602200 

L INE 

221 



BKWSP = .TRUE. 


01602210 

L INE 

222 



IJ = ICOL - 1 


01602220 

L INE 

223 



DO 68 IF=1,NFRE0 


01602230 

LINE 

224 



!J = IJ 8 1 


01602240 

L INE 

225 



WROWI I J I = 0.0 


01602250 

L INE 

226 


68 

WFSV( IF I = 0.0 


01602260 

L INE 

227 


62 

CONTINUE 


016022 /U 

L INE 

228 



IF( N INSID .LE. 2 ) GO TO 69 


01602280 

L INE 

229 



IJ = ICOL 8 NFREQ - 1 


01602290 

L INE 

230 



IF{ N INSID .GT. 3 ) GO TO 63 


01602300 

L INE 

231 

c 




01602310 

L INE 

232 

61 

CONTINUE 


01602320 

L INE 

233 



TESTW = WROWnJI 


01602330 

L IN E 

234 



GO TO 69 


. 01602340 

L INE 

235 

c 




01602350 

L INE 

236 


63 

CON TIN UE 


01C02360 

L INF 

237 



TEST = TESTW - WROWdJI 


01602370 

L INE 

238 



IF( WROWI I J > .NE . 0. 0 ) TE ST 

= TEST/WROWIIJI 

01 60 2 3 80 

L INE 

239 



IFl ABSITESTI .GT. .02 1 GO 

TO 61 

01602390 

L INE 

240 



BKWSP = .TRUE. 


01602400 

L INE 

241 



IJ = ICOL -1 


01602410 

L INE 

242 



DO 64 IF=1,NFREQ 


01602420 
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LINE 2«3 IJ = IJ 6 1 

LINE 244 64 WFSV(IF) = WROWdJI 

LINE 24 5 GU T3 69 

L INE 246 C 

LINE 247 65 CONTINUE 

LINE 24 3 IJ = ICOL - 1 . ‘ -v. 

LINE 249 DO 67 IF = l,NFREQ 

LINE 250 IJ = IJ & 1 

LINE 251 67 WHOWIIJI =WFSVIIF| 

LINE 252 C •-,/ 

LINE 253 69 CONTINUE 

LINE 254 ICOL = ICOL - NFREQ 

L INE 255 INOXI = INDXI - 6 

LINE 256 C 

LINE 257 C END LOOP ON ELEMENTS IN THE INFLUENCING SPAN 

LINE 258 70 CONTINUE 

LINE 259 C 

L INE 260 I IN * I IN C NEPS 

LINE 261 INDXI = INDXI C e^NEPS £ 6 

LINE 26 2 ICOL * ICOL fi NFREO*NEPS £ NFREa... 

LINE 263 C 

LINE 264 C END LOOP ON INFLUENCING SPANS OF SECTION II OF WING JJ 

LINE 265 75 CONTINUE 

LINE 266 C 

LINE 267 C END LOOP ON INFLUENCING SECTION II OF WING JJ 

LINE 268 80 CONTINUE 

LINE 269 C 

LINE 270 C END LOOP ON INFLUENCING WING JJ 

LINE 271 85 CONTINUE 

LINE 272 C 

LINE 273 C WPOW 1 ROW HAS BEEN COMPUTED FOR A GIVEN RECEIVING ELEMENT, 

LINE 274 C WRITE WROW ON FILE AND LOOP TO NEXT RECEIVING ELEMENT 

LINE 275 C 

LINE 276 WRITE (TAPE8I IRC, WROW 

LINE 277 C ZERO FOR WAKE ELEMENTS 

LINE 278 C WAKE = FALSE - NO WAKE ELEMENTS FOR ANY ELEMENT 

LINE 279 C WAKEl= TH WE - ELEMENT IS WAKED 

LINE 280 IF ( I WTE .EQ.OI GO TO 90 

LINE 281 IF( .NOT. WAKEH ) GO TO 90 

LINE 282 WRITE! 115 1 IRC,WTEROW 

L INE 283 KWAKE = IRC 

LINE2 84 KW=KW£1 

LINE 285 C 1F( IWTE.NE.OIWRI T£ (6,3001MRC,IER,I, J, WTEROW 

LINE 286 C ' — 

LINE 287 C WRITE! 16. 3001 ) IRC, lER, I, J.IWROWIIJI, 1J=IJ1,IC0L I 

LINE 288 C ICOL = ICOL £ L 

LINE 289 C 

LINE 290 C WRITE! 16,3001 ) IRC, IF.R, 1, J, WRCW 

LINE 291 C 

LINE 292 C END LOOP ON RECEIVING ELEMENT IN SECTION I OF WING J 

L INE 293 90 CONTINUE 

LINF 294 C 

I INE 295 C END LOOP ON RECEIVING SECTION I OF WING J 

L IN E 296 95 CONTINUE 

LINE 297 C 

LINE 298 C END LOOP ON RECEIVING WING J 

L INE 299 100 CONTINUE 

LINE 300 C 

LINE 30 1 C 

L INE 302 110 CONTINUE 

LINE 303 C 


01602430 
01602440 
016j2450 
01602460 
01602470 
01602480 
01602490 
01602500 
01602510 
01602520 
01602530 
01602540 
01602550 
01602560 
01602570 
01602580 
01602590 
01602600 
01602610 
01602620 
01602630 
01602640 
01602650 
01602660 
U16O2670 
01602680 
01602690 
01602700 
01602710 
01602720 
01602730 
01602740 
01602 750 
01602760 
01602770 
01602 780 
01602790 
01602800 
01602810 
016U2820 
016U2830 
01602840 
01802850 
01602660 
016028 70 
01602880 
01602890 
01602900 
01602910 
01602920 
01602930 
01602940 
01602950 
01602960 
01602970 
01602980 
01602990 
01603000 
01603010 
01603020 
01603030 


L INE 304 C 


01603040 
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LINF 305 IF(WftKE) END FILE 115 

LINE 306 16 =6 

LINE 307 |F< .^JT. W\KE) WRI TE II 6 ,1000) 

LINE 308 IF(W4KE ) WRITE (16,1010) KW 

LINE 30*; 1000 FDkM4 T( 1H0///16X,37HNC> WAkE EFFECTS HAVE BEEN OhTERMlNfcD ) 

LINE 310 1010 FORMA T( lH0///l6X,38HWAKb EFFECTS HAVE BEEN DbTEKMiNfcD FCJK , 1 1 -V, 

LINE 311 1 9H ELEMENTS ) 

L INE 312 END F ILE TAPE8 

L INE 313 RETUTN 

LINE 314 C3001 FORMA T(/// 1 8H RECEIVING ELEMENT, 15, 5X, 6HNUMBER, 14, 5X , 

LINE 315 C 1 lOHJF SECTION, 12, 5X, 7H0F WING, 12 ft (IX, 10E13.4 ) ) 

L INE 316 END 


01603050 

U16O3U60 

U1603070 

U16J3C80 

0lo03U9'J 

01603100 

01603110 

01603120 

01603130 

01603140 

01603150 

01O03160 
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DISPLAY. ..FILE DECK 17 


L INE 

1 


SUBROUTINE 

; MESHICORNX, CORNY, COPNZ, XYZ, Z, TRS, NNCH, SW, XLE, 

01 /OOUIO 

L INE 

2 


I 


NSP, NE, NETSV, EAKO 1 

U17UOU2U 

L INE 

3 

C 




01/00030 

L INE 

4 

C 

PURPD SE 

GENERATE MESH FOR 1 SECTION WWITHOUT CONTROL LINES 

01/00040 

L INE 

5 

C 




U1 /00050 

L INE 

6 

C 

INPUT 


0170U060 

L INE 

7 

c 




U1 /UU070 

L INE 

8 

c 


CORNX, CORNY, CORN! X,Y, AND Z COORD. OF CORNER PTS 1, 2, 3, 4 

Ul 700080 

L INE 

9 

c 



I N GLOBAL SYSTEM 

01 /00090 

L INE 

10 

c 


NSP 

DESIRED NUMBER OF SPANS P3R SECTION (INPUT BY USERI 

Oi/OOlOO 

L INE 

11 

c 


EARO 

ELEMENT ASPECT RATIO 

UI/OUIIO 

L INE 

12 

c 




01/00120 

L INE 

13 

c 

OUTPUT 


01700130 

L INE 

14 

c 




Oi 700140 

L INE 

15 

c 


XYZ 

4 X AND 2 Y LOCAL COORD. FOR EACH ELEMENT OF SECTION 

01700150 

L INE 

16 

c 


Z 

Z COORDINATE FDR ALL ELEMENTS IN SECTIUN (FROM TRANS 1 

01/00160 

L INE 

17 

c 


TR S 

2 BY 2 TRANS MATRIX TO GC FROM LOCAL TO GLOBAL 

01 700170 

L INE 

18 

c 


NNCH 

ELEMENT NUMBER (W.R.T. TOTAL STRUCTURbI OF LAST 

01/00180 

LINE 

19 

c 



ELEMENT IN SPAN. (USED FOR LABELING PLOT I 

01/00190 

L INE 

20 

c 


SW 

}v*,aN WIDTH 

01700200 

L INE 

21 

c 


XLE 

average X COORDINATE OF LEADING EDGE PER SPAN 

01700210 

L INE 

22 

c 


NS 

NUMBER OF ELEMENTS IN SECTION. 

01/00220 

L INE 

23 

c 


NETSV 

' COUNTER OF TOTAL NUMBER OF ELEMENTS IN STRUCTURE 

017UU23U 

L INE 

24 

c 




01700240 

L INF 

25 


DIMEN SION 

CORNX! 1), CORNY(l), CORNZm, TPS!1I, X!4), Y!4) 

01/00250 

L INE 

26 


DIMENSION 

XLE! 11 , SW!1) 

01700260 

L INE 

27 


DIMENSION 

XYZ!1) ,NNCH(20 » 

01 700270 

L INE 

28 


COMMON /BASIC /MACH, BEE TA 

01700280 

L INE 

29 


EQUIVALENCE <X(1J, XII, (X(2),X2I, (X(3»,X3I, (XI4),X4l 

01700290 

L INE 

30 


EQUIVALENCE (YU), Yll , (Y(2I,Y2I, (Y(3I,Y3), (Y(4I,Y4) 

01700300 

L INE 

31 


DATA 

OTEST 

/.98 / 

01700310 

L INE 

32 

c 




01700320 

L INE 

33 

c 


NOTE 

THAT ELEMENT IS NUMBERED CLOCKWISE WHILE SECT IS COUNT ER01TU033U 

L INE 

34 

c 




01700340 

L INE 

35 

c 


D X34 

DISTANCE BETWEEN POINTS THREE AND FOUR 

01700350 

L INE 

36 

c 


0X12 

DISTANCE BETWEEN POINTS 1 AND 2 

01700360 

L INE 

37 

c 


DS 

Y INCREMENT BETWEEN SPANS, ISPAN LENGTHI 

01 700370 

L INE 

38 

c 


NC1,NC2 NUMBER OF CORD DIVISIONS IN AREA 1 AND 2 

01 7UU3BO 

LINE 

39 

c 


DCl 

CHORD LENGTH 

0170U390 

L IN E 

40 

c 


OS 

Y INCREMENT BETWEEN SPAMS, ISPAN LfcNGT HI 

01700400 

L INE 

41 

c 


OXLE 

X IfsCFEMENT A LONG LEADING EDGE 

01700410 

L INE 

42 

c 


DXTE 

X INCREMENT ALONG TRAILING EDGE 

01700420 

L INE 

43 

c 




01700430 

LINE 

44 

c 


TRANSFORM CORNER POINTS TO LOCAL SYSTEM, WORK IN LOCAL SY ST EM 01 /0U440 

L INE 

45 

c 




01700450 

L INE 

46 


CALL 

TRANS! CORNX, CORNY, CCRNZ, TRS, X, Y, Z 1 

Ul 700460 

L INE 

47 

c 




01700470 

L INE 

48 

c 


F IND 

CRATIQ ICHORD TO SPAN RAP 131 

01 700480 

LINE 

4 9 

c 




01 7U049U 

L INE 

50 


DC = 

Y3 - 

Y1 

01 700500 

L INE 

51 


OS = 

(X3 - 

XIIFBFETA 

Oi/00510 

L INE 

52 


CRATIQ = < 

EARO*SQRT! OS^DS G DCFDCI 1 / (DCFBEETAI 

01 700520 

L INE 

53 

c 




U 1 700 530 

L IN E 

54 

c 

ASSUME CONSTANT SLOPE FOR ALL LINES 

Ul 700540 

L INE 

55 

c 




01 700550 

L INE 

56 


DX34 

= X4 

- X3 

Ui 700560 


6.44 


KEPRODUG£BnJTy< OF THE 
ORIGINAL PAGE IS POOJt 


L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
LINE 
L IN E 
LINE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INF 
L IN E 
L INE 
L INE 
L INE 


57 

58 

59 

60 
61 

62 C 

63 C 

64 C 

65 

66 

67 

68 

69 

70 11 

71 C 

72 C 

73 C 
7A C 

75 

76 C 

77 C 

78 

79 C 

80 C 

81 
82 

83 C 

84 

85 

86 

87 

88 C 

89 

90 

91 C 

92 

93 

94 

95 C 

96 C 

97 

93 C 
99 
100 
101 
102 

103 

104 
10 5 
106 

107 

108 

109 

110 
111 

112 C 
U2 

114 

115 19 

116 

117 

118 


DX12 = X2 - XI 
DS = (Y3-YU/NSP 
DC = CRATIO*DS 
DXLE = (X3-XD/NSP 
DXTE = IX4-X2I/NSP 

COMPUTE NCI, DCl FOR AREA I 


NCl=l 

OCl = AMAXKDX12, D X34 I 
IF( DCl .LT. DC » GO TO 11 
NCI = DC 1/DC 
DCl » DCl/NC I 
CONTINUE 


NE=0 

LOOP ON SPANS 
00 100 I=1,NSP 

FIND THE Y COORD. FOR THIS SPAN (AY AND BY ) 

BY = Yl £ I*DS 

AY = BY - DS 

FIND AX,BX, X COORD ON LEADING EDGE ON BOTH SIDES OF SPAN 
8X = XI £ r*DXLE 

AX = 3X - DXLE 

sw( n = DS 

XL Ed) = 0.5*(AX£3X) 

FIND CXtOX THE X CQOR ON TRAILING EDGE 
CX = X2 £ I«DXT£ 

DX = CX - DXTE 

OXM = DTEST*0C1 
CXH = CX - OXM 
DXM = DX - DXM 

LOOP ON NCI FOR AREA 1 
DO 20 J 1 = 1,NC I 

NJ = 6*NE 
NE=NEfil 
XYZIN J£5)=AY 
XYZ(N J£6)--9 Y 
XD = Jl+OCl 
XC = 3X £ XD 

XO = A X £ XD 

XA = XD - DCl 

XB = XC - DC I 

XYZ(N J£1)=XA 
XYZ(N J£2)=XB 
XYZ(N J£3) =XC 
XYZ(NJ£4)=X0 

CHECK TO SEE IF WF HAVF REACHED TRAILING EDGE ( CX AND OX ) 
IF( XC .GT. CX .OR. XD .GT. DX I GC TO 19 
GO T3 20 
CONTINUE 
XYZ(NJ£3)=CX 
XYZ(N J£4)=D X 
GO TD 60 


01 /00570 
01 /DU580 
01 T0059U 
Dl TOOfcCU 
Ul /0U610 
01 /0U620 
01 T00630 
01 /00640 
01 TUU650 
01700660 
01 7006/0 
01 700680 
01 700690 
01 70 0 7 00 
01 700 710 
01700720 
“01 700 730 
01 700740 
01 700750 
01700760 
01/00770 
01700730 
01700790 
01700800 
01700810 
01700820 
01700830 
01700840 
U1700850 
01700860 
01 700870 
01700880 
01700890 

0 1700900 
01700910 
01700920 
01700930 
0170 0 940 
01700950 
01 700960 

01 700970 
01700960 
01700990 
01701000 
Ol/OiOlO 
01701020 
01701030 
01701040 
01 701050 
0x701060 
01 70 1070 
Ui 701080 
01701090 
01701100 
01701110 
01 70 1120 
01701130 
UUO 1140 
017011 50 
01701160 
01 7Ui I 70 
U I 701 180 


L IN E 

119 


20 

CONTINUE 

t)i.70ilS0 

L INE 

120 

C 



U17U120U 

L IKE 

121 


6 0 

CONTINUE 

0 WO 12 10 

L INE 

122 



NNCHI n = NE £ NETSV 

01701220 

L INE 

122 

C 



01701230 

L INE 

124 


100 

CONTINUE 

01701240 

L INE 

125 

C 



01701250 

L INE 

126 

C 


update COUNTER OF TOTAL ELEMENTS FOR STRUCTURE 

ul 701260 

L IN e 

127 



NETSV * NETSV £ NE 

01701270 

L INE 

125 



RETURN " 

01 701280 

L INE 

129 



END 

01701290 
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display. ..Fit E 


DECK 18 


LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
LINE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INF 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L IN E 
L INE 
L IN E 
L INE 
LINE 
L INE 


33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
4 7 

48 

49 

50 

51 

52 

53 

54 

55 

56 




OTF¥00» 




1 


SUBROUTINE 

2 


1 

3 

C' 


4 

C 

PURPOSE ( 

5 

C 


6 

C 

INPUT 

7 

C 


8 

C 

CORNX 

9 

C 


10 

c 

NSP 

11 

c 

ICL 

12 

c 

CL( 1) 

12 

c 

CL(3) 

14 

c 

EARQ 

15 

c 


16 

c 

OUTPUT 

17 

c 


18 

C 

XYZ 

19 

c 

Z 

20 

c 

TRS 

2i; 

c 

NNCH 

22. 

C 


23'i^ 

c 

SW 

24^, 

c 

XLE 

25|, 

c 

NE 

26f 

c 

nEtsv 

27 

c 


28 


DIMENSION C 

29 


DIMENSION C 

30 


DIMENSION : 

31 


OIMEN SION 

32 


COMMON/BAS: 


NSP» NEt NErsVt ICLf CLi EAKO ) 


generate mesh for I section with control lines 


it 2t 3« 4 


iORNY, C0RN2 X.Y» AND Z COORD. OF CORNER PTS 
IN GLOBAL system 

DESIRED NUMBER OF SPANS FDR SECTION (INPUT BY USER! 
NUMBER OF CONTROL LINES I N SECTION ( 10R2 J 

:L(2» X CUORD. of first control line 

;U4) X COORD. OF SECOND CONTROL LINE 
ELEMENT ASPECT PATIO 


4 X AND 2 Y LOCAL COORD. FOR EACH ELEMENT OF SECTION 
Z COORDINATE FOR ALLJslEmENTS IN SECTION (FROM TRANSI 
2 BY 2‘ TRANS MATRIX, vO GC FROM LOCAL TO GLOBAL 
ELEMENT NUMBER (W.R.t. TOTAL STRUCTURE! OF LAST 
ELEMENT IN SPAN. (USED F CR LABELING PLOD 

span width 

AVERAGE X COORDINATE OF LEADING EDGE PER SPAN 
NUMBER OF ELEMENTS IN SECTION. 

COUNTER OF TOTAL NUMBER OF ELEMENTS IN STRUCTURE 


CORNY(l), CORNZ(l!t TRSIU, X(4), Y(4I 


XYZd! ,NNCH(20I 


EQUIVALENCE 
EQUIVALENCE 
DATA DTESr 


(X(l), XI) 
(Y(l) t YU 
/.98 / 


(X(2!,X2)t {X(3),X3), (X(4)»X4) 
(Y(2),Y2), (Y(3),Y3), (Y(4J,Y4) 


SECTION 
AREA 
AR EA 
AREA 
AREA 
NOTE 


IS DIVIDED INTO 3 AREAS 

1 BETWEEN leading EDGE AND 1ST CONTROL LINE 

2 BETWEEN FIRST AND 2ND CONTROL LINES 

3 between control line AND TRAILING EDGE 

2 DOES NOT EXIST IF THERE IS ONLY ONE CONTROL LINE 
THAT ELEMENT IS NUMBERED CLUCKWISE WHILE SEC! IS COUNTER 


DXLE 
OXTE 
DXCl 
DXC2 

DCl,2t3 CHORD length IN AREAS 1,2, AND 3‘ 

'MCI, 2, 3 NUMBER OF CORD DIVISIONS IN AREA I» 2, 
DX34 DISTANCE BETWEEN POINTS THREE AND FOUR 
DX22 distance BETWEEN 1 AND 2 MINUS 0X34 


I ACFEMtNT 
I NC RE ME NT 
I NC RE ME NT 
I NCREMPNT 


A LONG leading EDGE 
ALONG TRAILING EDGE 

ALONG FIRST CONTROL LINE (LEADING C.LINE) 
along second CONTROL LINE IF IT EXISTS 


AND 3 


TRANSFORM C CRNE R POINT#TO LOCAL SYSTEM, WORK IN LOCAL SYSIEM 
CALL TRANSI CORNX, CORNY, CQRNZ, TRS, X, Y, Z ) 


oiauooio 

018U0020 
01800030 
U18UU040 
018UDU50 
D18UU060 
01800070 
01800080 
0180U090 
UitiUUlOO 
Ol SO 01 10 
013U0120 
01800130 
U18JU14U 
01800150 
01800160 
0180U170 
01800180 
01800190 
01800200 
U18UU210 
01800220 
01800230 
01800240 
01800250 
01300260 
018002/0 
01800280 
01800290 
01800300 
01800310 
01800320 
01800330 
018U034U 
O180035U 
0180U360 
018003/0 
01800380 
01800390 
01800400 
01800410 
01800420 
01800430 
01600440 
0180U450 
0180U460 
018004/0 
01800480 
01800490 
01800500 
01800510 
01800520 
01800530 
U 1 800540 
U18OO550 
0180056U 
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ORIGINAL » 

Ol' POOB 


L INE 

5t 

C 


01800570 

L INfc 

58 

C 

FIND CRATIO (CHORD TO SPAN RAT lOI OldUUbBU 

L INE 

59 

C 


01 80 05 90 

L INF 

60 


DC » Y3 - Y1 

OlbOUtCU 

L INE 

61 


OS = ( X3 - XIIOBEETA 

oiaoueio 

LINE 

62 


CRATIO = ( EARO*SOKT( DS*DS E 

DC4DCI I / lOC+BEETA) 01800620 

L INE 

63 

c 


01800630 

L INE 

6^ 

c 

ASSUME CONSTANT SLOPE FOR ALL 

LINES OlbOOfeAO 

L INE 

65 

c 


01800650 

L INE 

66 


0X34 = X4 - X3 

01800660 

L INE 

67 


DX22 = X2 - XI - DX34 

01800670 

L INE 

68 


DS = ( Y3- YU /NSP 

Cl 800680 

L INE 

69 


DC = CRAT1D4DS 

01800690 

L INE 

70 


DXLE = IX3-X1I/NSP 

01800700 

L INE 

71 


DXTE = (X4-X2I/NSP 

018U0710 

L INE 

72 

c 


01800720 

L INE 

73 

c 

FIND INFORMATI ON FOR AREA 

BETWEEN LEADING EDGE AND 1ST C .L INE018D0730 

L IN E 

74 

c 


01800740 

L INE 

75 


CLl = CL(U 

01800750 

L IN E 

76 


CL2 » CL(2) 

01B0076O 

L INE 

77 


OXCl = CCL2-CL1I/NSP 

01800770 

L INE 

78 


NCI = 1 

01800/80 

L INE 

79 


DC1= AMAXK CL1-X1,CL2-X3 1 

01800790 

LINE 

80 


, IF( OCl .LT. DC » GO TO ll 

01800800 

L INE 

81 


NCI =* DCl/DC 

018U0810 

L INE 

82 


OCl = DCl/NCl 

01800820 

L IN E 

83 

ll 

CONTINUE 

01800830 

L INE 

84 

c 


018U0840 

L INE 

85 

c 

FIND INFO FOR AREA BETWEEN CONTROL LINES 01BUU850 

L INE 

86 

c 


01800860 

L INE 

87 


NC2 =* 0 

01800870 

L INE 

88 


IF( ICL .EQ. 1 f GO TO 14 

01800880 

L INE 

89 

c 

‘■’J) 

01800890 

LINE 

90 


CL 3 = CL (3) 

01800900 

L INE 

91 


CL4 » CL(4) 

01800910 

L INE 

92 


DXC2 = (CL4-CL3) /NSP 

01800920 

L INE 

93 

c 

FIND DC3 FOR AREA BETWEEN 

SECOND CONTROL LINE AND TRAIL 1NGEUGE01800930 

L INE 

94 


DC 3^ AMAXK X2-CL3, X4-CL4 » 

C180U940 

L INE 

95 


NC2 = 1 

01800950 

L INE 

96 


DC2= AMAXK CL3-CL1, CL4-CL2 I 

01800960 

L INE 

97 


IF( 0C2 .LT. DC ) GO TO 16 

01800970 

L INE 

98 


NC2 = DC2/DC 

01800980 

L INE 

99 


0C2 « 0C2/NC2 

01800990 

LINE 

100 


GO TO 16 

0180 lOUO 

L INE 

101 

c 


oiaoioio 

L INE 

10 2 

c 


01801020 

L INF 

103 

14 

CONTINUE 

OL801030 

L IN E 

104 

c 

FIND DC 3 FOR AREA BETWEEN 

FIRST CONTROL LINE AND TRAILING EOGhOiaO 10<»0 

L INE 

10 5 


DC 3= AMAXll X2-CL1, X4-CL2 1 

01801050 

L INE 

106 

c 


01801060 

L INE 

107 

16 

CONTINUE 

018010/0 

L INE 

108 

C 


U1801U80 

L INE 

109 


NC3 ^ 1 

U1801U9U 

L INE 

110 


IF( DC3 .LT. DC I GO TO 18 

01801 100 

L INE 

111 


NC3 = DC 3/DC 

Ol 80 1110 

L INE 

112 


DC3 = DC3/NC3 

0x801120 

L INE 

113 

18 

CONTINUE 

01301 130 

L INE 

114 

c 


018U1140 

1 V M C 


r 




113 




L INE 

lib 

C 


0180 1160 

L INE 

117 

c 

LOOP ON SPANS 

018 J U 70 

L IN E 

116 


NE = 0 

0180LL8U 


-6.4B 


» 1. 


L INE 

119 

C 







01801190 

IINE 

120 


OD 100 I*l,NSi> 






oiaui 20 u 

L INE 

121 

C 







D18U1210 

L INE 

122 

C 

EIND THE V COORO. 

FOR 

THIS SPAN 

I AY AND 

BY ) 


01801220 

L INE 

123 


OY = VI £, I»DS 






01801230 

L INE 

124 

. 

AY « av - DS 






U180124U 

L INE 

125 

C 

FIND AX.BX, X COORD ON 

LEADING fcUGE ON BOTH SIDES 

OF SPAN 

01801250 

L INE 

126 


BX = XI & I*DXLE 






U1801260 

LINE 

127 


AX = ax - OXLE 





1? 

018012 10 

L INE 

128 


swm = DS 






01U012B0 

L INE 

129 


XLE( 11=0, 5f (A XLB X> 






01801290 

L INE 

130 

c 

EINO CXfDX THE X COOR 

ON TRAILI NG 

EDGE 



01801 300 

L INE 

131 


CX = X2 & I*OXTE 






01801310 

L INE 

132 


OX = CX - OXTE 






01801320 

L INE 

133 

c 

FIND ACLl, BCLl X 

COORD ON FIRST 

CONTROL 

LINE 


01801330 

L INE 

134 


BCL 1 = CLl C I*DXC1 






01801340 

L INE 

135 


ACLl = BCLl - DXCl 






01801350 

L INE 

136 

c 







0180 1360 

L INE 

137 


TDl = DTEST^DCl 






0IBO13/U 

L INE 

138 


TCI = BCLl - TDl 






01801380 

L INE 

139 


TDl « ACLl - TDl 






01801390 

L INE 

140 

c 







01801400 

L INE 

141 


OXM = DTEST*DC3 






01801410 

L INE 

142 


CXM = CX “ OXM 



!> 



01801420 

L INE 

143 


DXM * OX - OXM 






01801430 

L INE 

144 

c 







01801440 

L INE 

145 

c 

LOOP ON NCI FOR AREA 1 





01801450 

L l.NE 

146 


DO 20 J1 = 1,NC1 






01801460 

L INE 

14T^ 

c 







01801410 

L INE 

148: 


NJ = 6*NE 






01801480 

L IN E 

149 


NE=NESl 






01801490 

L INE 

150 


XYZ(N JL5J =A Y 






01801500 

L INE 

151 


XYZIN J£6»=8Y 






01301610 

LINE 

152 


XO = Jl*DCl 






01801520 

L INE 

153 


XC = 3X £ XD 






01801530 

LINE 

154 


XO = AX £ XD 






01301540 

L INE 

155 


XA = XD - DC 1 






01801550 

L INE 

156 


XB = XC - DCl 






01801560 

L INE 

157 


XY2(N J£ll=XA 






01801510 

L INE 

158 


XYKN J£2»=X8 






01B01580 

L INE 

159 


XYZIN J£3I=XC 






01801590 

L INE 

160 


XYZIN J£4)=X0 






018016CO 

L INE 

161 

c 

CHECK TO SEE IF WE 

HAVE REACHED THE FIRST 

CONTROL 

L INE 

U1801610 

L INE 

162 


IFI XC ,GT. BCLl . OR. 

XD 

,GT. ACLl 

1 GO TO 

19 


01801620 

L INE 

163 


GO T3 20 






01801630 

L INE 

16 4 

19 

CONTINUE 






01801640 

L INE. 

165 


XYZINJ£3) = BCLl 





9 

01801650 

L INE 

166 


XYZINJG4) = ACLl 






0180 1660 

L INE 

167 


GO TO 25 






018016 rO 

L INE 

168 

C 







01801680 

L INE 

169 

20 

CONTINUE 






01801690 

L INE 

170 

C 







01801 /LO 

L INE 

171 

25 

CONTINUE 






U18U1710 

LINE 

172 

C 







0180 1720 

L INE 

173 


IFI ICL .EQ. 1 1 GO TO 

40 





01801730 

L INE 

174 

C 







OlBOl /40 

L INE 

17 5 

C 

SECTION for area 2 






01801750 

L INE 

176 

c 







01301760 

L INE 

177 

c 

FIND ACL2, BCL2 

X COCRD ON SECOND CONTROL LINE 


01801 1 70 

L INE 

178 


0CL2 = CL3 G I*DXC2 






01801780 

L INE 

179 


ACL 2 = BCL2 - 0 XC2 






01801 790 

L INE 

180 

c 







01801800 
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LINE 

181 


TD2 * DTEST*DC2 






UlBOlfalO 

L INE 

1B2 


TC2 » BCL2 - TO 2 






OiHOiUZO 

L INE 

183 


TD2 = ACL2 ~ TO 2 






018U1830 

L INF 

184 

C 







UIBUlbsU 

L IN E 

185 

c 

LOOP ON NC2 FOR 

AREA 2 




DIB JU50 

L INE 

186 


DO 30 Jl = l,NC2 






01801860 

L INE 

187 

c 







01801870 

LINE 

188 


NJ = 6*NE 






01801880 

L IME 

189 


NE =NE 81 






U180189U 

L INE 

190 


XY2(N J85)=A V 






01801900 

L INE 

191 


XYZ(N) J£6)=3 Y 






0180191U 

L INE 

192 


XO - J 1*00 2 






01801920 

L INE 

193 


XC = BCLl 8 XD 






01801930 

L INE 

194 


XD = ACLl 8 XD 






01801940 

L INE 

195 


XA = XD - DC 2 






01801950 

L INE 

196 


XB = XC - DC 2 /? 






ULB01960 

L INE 

197 


XY2(NJ81) = XA !' 






01801970 

L INE 

198 


XYZIN J82 J=XB 






U180198U 

L INE 

199 


XYZ(NIJ83)=XC 






0180 1990 

L INE 

200 


XYZ<NIJ84>=XD 






01802000 

L INE 

20 1 

c 

CHECK TO SEE IF 

WE 

HAVE 

REACHED SECOND CONTROL 

LINE 

01802010 

L INE 

20 2 


IF! XC .GT. BCL2 .OR. 

XD . 

GT. ACL2 

1 GO TO 29 


018U2C20 

L INE 

203 


GO TO 30 






UI802030 

L INE 

204 

29 

CONTINUE 






01802040 

L INE 

20 r. 


XYZ(NJ83) - BCL2 






01802050 

L INE 

20 6 


XYZ(NJ84) = ACL2 






01802060 

L INE 

207 


GO TO 45 






UIB02070 

L INE 

208 

30 

CONTINUE 






01802080 

L INE 

209 


GO TO 45 






U18U20S0 

L INE 

210 

C 







01802100 

L INE 

211 

40 

CONTINUE 






01802110 

L INE 

212 

C 

THIS SECTION I S 

BEACHED 

IFF THERE 

WAS ONLY 1 CONTROL L INE 

0i802120 

L INE 

213 

C 

ACLl, BCLl ARE PUT 

I NTD ACL2 ,BCL2 

AND AREA 3 IS 

ALWAYS IREAT ED01802130 

L INE 

214 

C 

AS THE PART BETWEEN 2QN 

CONTROL 

LINE AND LEADING EDGE 

U1802140 

L INE 

215 


ACL2 = ACLl 






U1802150 

L INE 

216 


BCL2 = BCLl 






01802160 

L INE 

217 

45 

CONTINUE 






018021 70 

L INE 

218 

C 







01802180 

L IN E 

219 

C 

LOOP ON NC3 FOR 

AREA 3 




01802190 

L INE 

220 

C 







01802200 

L INE 

221 


DO 50 Jl = L,NC3 






01802210 

L INE 

222 

c 







01802220 

L INE 

223 


NJ = 6*NE 






01802230 

LINE 

224 


NE=NE81 






01802240 

L IN E 

225 


XVZ(N J85I=AY 






01802250 

L INE 

226 


XYZIN J86)=3 Y 






01802260 

L INE 

227 


XYZIN J87)=B V 






01802270 

L INE 

228 


XYZIN J8B )=A Y 






01802280 

L INE 

229 


XD = J1*DC3 






01802290 

L INE 

230 


XC = BCL2 8 XD 






U 1802300 

L INE 

231 


XD = ACL2 8 XO 






01802310 

L INE 

232 


XA = XD - DC 3 






OIHO’2320 

LINE 

23 3 


XB = XC - DC 3 






01802330 

L INE 

234 


XYZ(NJ81I =XA 






01802340 

L INE 

235 


XYZ<NJ82»=XB 






01802350 

L INE 

23 6 


XYZIN J83>=XC 






01802360 

L INE 

237 


XYZIN J84)=XD 






01802 3 /0 

L INE 

238 

c 

CHECK TO SEE IF 

WE 

REACH 

ED TPAI LING EDGE ( LX, DX ) 

01802380 

L INE 

239 


IF( XC .GT. CX .OR. 

XD .GT. 

DX 1 GC 

TO 49 


U180239U 

L INE 

240 


GO TO 50 






01802AU0 

L INE 

241 

49 

CONTINUE 






0IB0241O 

L INE 

242 


XYZ(NJ83)=CX 






01 802 420 
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LINE 243 
L INE 244 
L INE 24 5 
LINE 246 
LINE 247 
LINE 248 
LINE 249 
L INE 250 
LINE 251 
L INE 252 
L INE 25 3 
LINE 254 
LINE 255 


C 

C 

C 

C 


50 


XYZIN JE4 )=0X 
GO TO 60 
CONTINUE 


OHIGINAL fM^' 
OF POOF 


60 CONTINUE 

NNCHI I ) = NE £ NETSV 


100 CONTINUE 


UPDATE COUNTER OF TOTAL ELEMENTS FOR STRUCTURE 
NETS'/ = NETSV £ NE 
RETUIN 
END 


01802430 

018U2440 

018U2A5U 

01802460 

U10U247O 

01802480 

01802490 

01802500 

01802510 

01802520 

01802530 

01802540 

01802550 
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DISPL AY. ..FIL E 


DECK 19 


L INE 

1 


SUBROUTINE MF UN ( JMODEI 


01900010 

L INE 

2 


COMMON / MODEF / EMIlOlt OMdOlt X» Y, Jit 

J2 

01900020 

L INE 

3 


DIMENSION CTABLE (6,20) . IFTA3L(2t20» 


01900030 

LINE 

A 


COMMON /MCOM/ C TABLE, IFTABL, NTABLtNEQF 


U190UUA0 

LINE 

5 


DO 2 00 IH = i, JMOOE 


019U0050 

L INE 

6 


EMI IHJ = 0.0 


01900060 

L INE 

7 


OMUHI =0,0 


01900070 

L INE 

8 


DO 100 I =1 tNEOF 


U1900080 

L INE 

9 


IFh = IFTABL n, 1» 


01900090 

L INE 

10 


IFM = IFTABL (2,11 


01900100 

L INE 

11 


IF( (IFW.EO. Jl) .and. I IFM.EQ.IH) » GO TO 

90 

0190U110 

L INE 

12 


GO TO 100 


01900120 

L INE 

13 

90 

CO = CTABLE ( 1 tl ) 


01900 130 

L INE 

lA 


CX = CTABLE { 2 ,I ) 


01900140 

L INE 

15 


CY = CTABLE ( 3 ,I 1 


01900150 

L INE 

16 


CXY= CTABLE ( A ,I ) 


01900160 

L INE 

17 


CX2= CTABLE ( 5 ,I J 


01900170 

L INE 

18 


CY2= CTABLE ( 6 ,I ) 


01900180 

L INE 

19 


EM(IH)= COCCX*X CCY*YC CXY* X ♦ Y C 

CX2 *X**Z QCYZ*Y**2 

01900190 

L INE 

20 


OM(IH) = CX e CXY * Y f, 2.0 * CX^» X 


01900200 

L INE 

21 


GO TO 2 00 


01900210 

L INE 

22 

100 

CONTINUE 


01900220 

L INE 

23 

200 

CONTINUE 


019U0230 

LINE 

2A 


RETURN 


01900240 

L INE 

25 


END 


01900250 


OF ?0O5. 




^>pGnui 


_ 3 ‘ 


DISPLAY .. 

.FILE 

DECK 

20 



• 



LINE 

1 


SUPROUTINE NXERRIl 

ERR,MXND,NOI N, 

16) 



02000010 

L INE 

2 


WRITE (1 6,700) 





02U0002U 

L INE 

2 


IFCIERR .Eg. 

610 ) 

WRl TE (16,710) 

MXNC, 

NO IN 


02 00 00 30 

L INE 

4 


IP( lERR .EO . 

620 ) 

WRITE (1 6,720) 

MXNO, 

NOIN 


02000040 

L INE 

5 


IFdERR .EQ. 

630 ) 

WRI TE (16 ,730) 

MXNC,, 

NOIN 


02000050 

L INE 

6 


IF( lERR .Eg. 

640 ) 

WRI TE (16,740) 

MXNO, 

NOIN 


02000060 

L INE 

7 


IFIIcRR .EO. 

650 ) 

wRI TE (16,750) 

MXNC, 

NUIN 


0200 00 /U 

L INE 

8 


1F( lERR .EO. 

660 ) 

WRITE(I6,760) 

MXNO, 

NUIN 


02000080 

L INE 

9 


IF( lERR .EU . 

670 ) 

WRI TE (16 ,770) 

MXNC, 

NOIN 


02000090 

L INE 

10 


IF( lERR. EQ. 

680) 

WRITE(I6, 780) MXNO, 

NOI N 


02000100 

L INE 

11 

700 

FORMA T( IHO ///8X, 

42HERR0R IN 

INPUT 

MAXIMUM ALLOWED fcX C bEOE D ) 02 00 0 110 

L INE 

12 

710 

F0PM4 T( IHO / 

8X, 

20HMAXIMUM NO. WINGS = 113, 6X, 

4H 

NU .02000120 

L INE 

13 


1 ,9H INPUT = 

113 ) 





02000130 

L INE 

14 

720 

FORMA T( IHO / 

8 X, 3 OH MAXI MUM NO. 

SECTIONS / WING = 

III, 6X, 4H 

NU. 02000140 

L INE 

15 


1 ,9H INPUT = 

11 3 ) 





02000150 

L INE 

16 

730 

FDR MA T( IHO / 

8 X, 2 OH MAXI MUM NO. 

MODES = 

II3,6X, 

4H 

NU. 02000160 

L INE 

17 


1 ,9H INPUT = 

113 ) 





020U0170 

L INE 

18 

740 

FDRMAT( IHO / 

8X,2 0HMAXI MUM NO. 

SPANS = 

113, 6X, 

4H 

Na.02U0Ul80 

L INE 

19 


1 ,9H INPUT = 

113) 





02000190 

L INE 

20 

750 

FORMAT! IHO / 

8X,28HMAXI MUM NO. 

CORNER 

POINTS = II1,6X, 4H 

NU. 02000200 

L INE 

21 


1 ,9H INPUT = 

113 

) 




02000210 

L INE 

22 

760 

FORMA n IHO / 

8X,2 6HMAXI MUM NO. 

FREQUENCIES = 112 

♦ 6X , 4H 

NU. 02000220 

L INE 

23 


1 , 9H INPUT = 

113 ) 





02000230 

L INE 

24 

770 

FORMA T( IHO / 

8X,30HMAXI MUM NO. 

ELEMENTS / SPAN = 

112, 6X, 4H 

NU. 02000240 

L INE 

25 


1 , 9H INPUT = 

112 

) 




02000250 

L INE 

26 

780 

FORMA T( IHO, 

8X, 

36HMAXIMUM NO. 

POl MS 

ON SPLINE 

DATA = II3,6X 

:, 02000260 

L INE 

27 


1 4H NO,, SH : 

INPUT 

= 113) 




U2UU0270 

L INE 

28 


RETIKN 






02000280 

L INE 

29 


END 






U200U290 


/ENO READ 


ENC CF JOB. 

39.6 SEC. USED .312 HRS. CHARGED 49.962 HRS. REMAIMING 
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DISPLAY. ..FILE 


DECK 21 



L INE 

1 


SUBRD JUNE 

OUTPl! MACH, FREO, JMCIE, JWlNG, NS, NSP, SW 

, DLSPAN, 

02100010 

L INE 

2 


1 

PMSPAN, XP, INDXI, PRES, IPW, 16, LINE, LMAX, 

02100020 

L INE 

3 


1 

NNCH, NE, TITLE, PHIW, NS PT ) 


U210U030 

L INE 

4 

C 




02100040 

L INE 

5 

C 

MACH 

MACH NUMBER 


02100050 

L INE 

6 

C 

FREQ 

FREQUENCY 


02100060 

L INE 

7 

C 

JMOOE 

MODE NUMBER 


02100U/0 

L INE 

8 

C 

JWINO 

WING NUMBER 


02100080 

L INE 

9 

C 

NS 

NUMBER OF SECTIONS IN JWING 


02100090 

L INE 

10 

C 

N SP 

NUMBER OF SPANS IN EACH SECTION OF Jw ING 

( ARRAY ) 

02100100 

L INE 

11 

c 

DLSPAN 

LIFT/UNIT SPAN FUR EACH SPAN OF JW ING ( ARRAT » 

02 luullu 

LINE 

12 

c 

PMSPAN 

PITCHING HOMENT/UNIT SPAN FOR EACH SPAN 

1 ARRAY) 

02 IU0120 

L INE 

13 

c 

XP 



02100130 

L INE 

14 

c 

INOXI 

ELEMENT NUMBER OF FIRS ELEMENT OF JWING 


02100140 

L INE 

15 

c 

PRES 

ELEMENT PRESSURES FOR JwiNG !ARRAYJ 


02100150 

L INE 

16 

c 

IPW 

PRI NT CONTROL FOR JWING 


02100160 

L INE 

17 

c 

IPW=1 

LIFT AND PRESSURE MUMENTS/UNIT SPAN TO BE PRINTED 

02100170 

L INE 

18 

c 

IPW = 2 

ELEMENT PRESSURES TO BE PRINTED 


02100180 

L INE 

19 

c 

IPW=3 

BOTH OF THE ABOVE TO BE PRINTED 


02100190 

L INE 

20 

c 

IPN=0 

NONE OF THE ABOVE TO BE PRINTED 


02100200 

L INE 

21 

c 

16 

LOGICAL UNIT NUMBER FOR OUTPUT DIVISE 


02IUO2IO 

L INE 

22 

c 

sw 

SPAN WIDTH lAPRAYI 


02100220 

L INE 

23 

c 

LINE 

CURRENT LINE ON OUTPUT PAGE 


02100230 

L INE 

24 

c 

LMAX 

MAXIMUM LINE ON A PRINTED PAGE 


021002-,0 

L INE 

25 

c 

NNCH 

ARRAY CONTAINING ELEMENT NUMBER OF THE LASI EL EM ENT 02 1 00250 

L INE 

26 

c 


OF EVERY span IN THE COMPLETE STRUCTURE 


U21U0260 

LINE 

27 

c 

NE 

ARRAY CONTAINING THE WJMBER OF ELEMENTS 

IN EACH 

021002/0 

L INE 

28 

c 


SECTION OF JWING. 


02100260 

L INE 

29 

c 




02100290 

L INE 

30 


REAL MACH. 



02100300 

L INE 

31 


COMPLEX 

OLSPANIl), PMSPAN!!), PRESdl 


02100310 

L INE 

32 


COMPLEX PHIWIII 


02100320 

L INE 

33 


DIMENSION NNCHdl , NEfll 


02 10 0330 

L INE 

34 


DIMEN SION NSP(l) » SWd 1 


02100340 

L INE 

35 


DIMEN SION 

TITLE <14) 


02100350 

L INE 

36 

c 




02100360 

L INE 

37 


DO 15 KSPCT = 1 ,NSPT 


021003/0 

L INE 

38 


!F( NNCH(KSPCT) .GE. INDXI J GO TO 17 


02100380 

L INE 

39 

15 

CONTINUE 



02100390 

L INE 

40 

17 

CONTINUE 



02100400 

LINE 

41 

c 




021OO41U 

L INE 

4 2 


IF( LINE .NE. LMAXCl » GO TO 25 


02100420 

L INE 

43 


WRITE! 16, 

2015 ) TITLE, FREO 


02100430 

L INE 

44 


L INE =6 



02100440 

L INE 

45 

c 




02100450 

L INE 

46 

25 

CONTINUE 



02100460 

L INfe 

47 

c 




021004 W 

L IN E 

48 


IF! IPW .EO 

. 2 ) GO TO 123 


02100480 

L INE 

49 

c 




02100490 

L INE 

50 

c 

WRITE 

LIFT AND PRESSURE MOMENT TABLE 


02100500 

1 TKI C 


r 





L C 

0 X 





”UcXJU3iu 

L INE 

52 

c 




02 100520 

L INE 

53 


IF! LMAX - 

LINE .GT. 14 ) GO TO 30 


021UU530 

L INE 

54 


WR I TE ! 16, 

2020 ) 


02100540 

L INE 

55 


L INE ~ 7 



02100550 

L INE 

56 


GO TO 35 



02100560 
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7 




L INE 

57 

30 

CONTINUE 

02100510 

L INE 

58 


^RITEI 16t 2021 ) 

U2100580 

L INE 

59 


L INE = LINE C 12 

U210U590 

L INE 

60 

35 

CONTINUE 

U210U600 

L INE 

61 


MRITE( 16« 2001 I JW1N6 

U2100610 

L INE 

62 

C 


U2100620 

L INE 

63 


K = 1 

U21UU630 

L INE 

64 


ISPCT = KSPCT 

U21UU640 

L INE/ 

t5 


WRITE! 16, 2002 IJMODE , FREO, MACH 

U21U0650 

L INE 

66 


WR ITE( 16, 2003 1 XP 

02100660 

L INE 

67 

C 

LOOP ON SECTIONS 

02100670 

L INE 

68 


DO 120 ISECT=1,NS 

02100680 

L INE 

69 


NSPAN = NSPlISeCT) 

02100690 

L INE 

70 

C 

LOOP ON SPANS OF SECTION 

02 100 700 

L INE 

71 


DO 115 I SPAN=1 ,NSPAN 

02 10 07 10 

L INE 

72 


WR ITE ( 16,20041 I SECT, I SPAN,SW(I SPCT» ,DLSPAN( ISPCT ) , PMSPANI ISPCT 1 

02100720 

L INE 

73 


ISPCT = ISPCT £ 1 

02100730 

LINE 

74 


K = K £ 1 

U2100740 

L INE 

75 

115 

CONTINUE 

02100750 

L INE 

76 


LINE = LINE £ NSPAN 

02100760 

L INE 

77 

120 

CONTINUE 

021007 70 

L INE 

78 

C 


021UU780 

L INE 

79 


LINE = MODILINE ,LMAXI 

021UU790 

L INE 

80 

C 


02100800 

L INE 

81 

123 

CONTINUE 

02100810 

L INE 

82 


IF! IPW ,E0. 1 ) RETURN 

02100820 

L INE 

83 

C 


021JU83U 

L INE 

1 1M C 

84 

OC 

C 

r 

WRITE ELEMENT PRESSURE TABLE 

02100840 

L c 


U 


UiC ii; U o!3U 

L INE 

86 

c 


02100860 

L INE 

87 

c 

CALCULATE THE NUMBER OF ELEMENTS IN OWING 'NEWJ' 

021008/0 

L IN E 

88 


NEWJ = 0 

02100880 

L INE 

89 


DO 125 1=1, NS 

0210U89U 

L INE 

90 

125 

NEWJ = NEWJ £ NE'(I) 

02100900 

L INE 

91 


INDXR = INDXI £ NEWJ - 1 

02100910 

L INE 

92 

C 


0210U920 

L INE 

93 


IF( LMAX - LINE ,GT. 14 » GO TO 130 

02100930 

L INE 

94 


WRITE! 16, 2020 i 

02100940 

L INE 

95 


LINE = 7 

02100950 

L INE 

96 


GO T3 13 5 

02100960 

L IN E 

97 

130 

CONTINUE 

02100970 

L INE 

98 


WRITE! 16, 2021 I 

02100980 

L INE 

99 


L INE = LINE £ 12 

02100990 

L INE 

100 

135 

CONTINUE 

02101000 

L INE 

101 


WRITE! 16, 2005 ) OWING 

02101010 

L INE 

102 

C 


02101020 

L INE 

103 


WRITE! 1 6, 2002 IJMOOE, FREO, MACH 

02U1030 

L INE 

104 


WRITE! 16, 2009 ) 

02101040 

L INE 

105 


INDXR - INDXI 

02101050 

L INE 

106 


ISPCT = KSPCT 

02101060 

L iNE 

107 

C 

LOOP ON SEC TIONS 

02101070 

L INE 

108 


DO 220 ISECT = 1,NS 

02101080 

L INE 

109 


NSPAN = NSP nSECTI 

0210 1090 

L INE 

110 

c 

LOOP ON SPANS OF SECTION 

02101100 

L INE 

111 


DO 215 I SPAN=1, NSPAN 

02101110 

L INE 

112 


NEPS = NNCH! ISPCT)- INDXR £ 1 

02101120 

L INE 

113 


DO 210 lEL = 1,NEPS 

U2U 1130 

L INE 

114 


WRITE! 16, 2010 ) ISECT, ISPAN, INDXK, PHIW(INDXR), PRES! INDXR) 

02 101140 

L INE 

115 


INDXR = INDXR £ 1 

02101150 

L INE 

116 

210 

CONTINUE 

02101160 

L INE 

117 


ISPCT = I SPC T £ 1 

02 10 11 70 

L INE 

118 

215 

CONTINUE. 

0210 1180 
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LINE 119 
LINE 120 
L INE 121 
LINE 122 
LINE 122 
LINE 12^ 
L INE 125 
LINE 126 
LINE 127 
LINE 128 
LINE 129 
LINE 130 
LINE 131 
LINE 132 
LINE 13 3 
LINE 13A 
LINE 135 
LINE 136 
LINE 137 
L INE 13B 
LINE 139 
LINE 140 
LINE 141 
LINE 142 
LINE 143 
LINE 14*1 
LINE 14S 
LINE 146 


220 CONTINUE 


LINE = LINE C NEWJ 
L INE = NEwJ/3 L LI NE 
IF( -4DD(NEWJ,3) .GT. 


L INE = MODI LI NE , LMAX I 


02101190 
U21012GU 
02101210 
021U1220 

02101^:30 
02101240 
02101250 
U2lU 1260 

46X, 47HLIFT AND PITCHING MOMENf PER UNIT SPAN EOR W1U21012/0 


0 I LINE = LINECI 


RETURN 

2001 FORMAT! 

ING. 12 ) 

2002 FORMAT! IHC,5X, IIHMDDE NUMBER, 13 / 

1 22X, 13HMACH NUMBER =, F7.4 / ) 

2003 FORMAT! 5X, 31H SECTION SPAN SPAN WIDTH, 

1 8K, 27H LIFT PFR UNIT SPAN , 

2 7X, 38HP ITCHING MOMENT PER UNIT SPAN ABOUT X=, E12.6 / ) 

2004 FORMA T(!6X, 217, 5X, E12.6, 2! 7X, bl.2.6, 3X , E12.6, 4X 1 


6Xf 1 IHPRhCJUENCT =, F7.4, 


I ) 


021012B0 
02101290 
02101300 
0210 1310 
02101320 
02101330 
02101340 


2005 FORMAT! 46X t 50H VE LDC I T Y POTENTIALS AND ELEMENT PRESSURES EOR W ING, 0210 1350 


1 12 I 

2007 FORMAT! 3 ! 6 X, THE LE ME NT , 3 X ,8 (lH-» ,10H PRESSURE ,9!IH») 

2008 FORMAT! 3! 6X, 17, 3X, ElZ.b, 3X, E12.6 ) I 

2009 F0RMAT!6X, 27HSECTION SPAN ELEMENT, IIX, 

1 27H VELOCITY POTENTIAL — IIX, 8!IH-), lOH PRESSURE 

2 9! IH- f / » 


I / 


2010 FORMAT! 
2015 FORMAT! 

2020 FORMAT! 

2021 FORMAT! 
END 


6X, 217, 113, 2( IIX, E12.6, 3X, E12.6 I ) 

IHl, 45X, 14A4 // 46X,11HFRE0UENCY =, F7.4//1X, 65! 2H £» 
IHl I 

////// ) 


02101360 
) 021013T0 
02101380 
02101390 
02101400 
02 101410 
0210 1420 
)021U1430 
02101440 
02101450 
0210L460 



DISPLAY.. 

.FILE 

DECK 22 


L INE 

1 


1. * 

SUBROUTINE QLTP2I I 6 ,NWI NG iXPf IL 1 1 N. JNODE , FRfcOt MACH, L INb, L M AX 

I 02200010 

L INF 

2 


COMPLEX TL(4,101, TM(4,10) 

0220UU2U 

L INE 

3 


real MACH 

U2200030 

L INE 

A 

C 

TL TOTAL LIFT PER WI - ^ 

U2200'J40 

L INE 

5 

C 

TM TOTAL MOMENT PER WING 

U220U0 5U 

L INE 

6 

C 


02200060 

L INE 

7 

C 


022000 /O 

L INE 

6 

C 

WRITE TABLE OF TOTAL LIFT AND PITCHING MOMENTS 

02200U8U 

L INE 

9 

C 


02200090 

L INE 

10 


1F( LMAX - LINE .GT, 14 ) GO TO 30 

022U0L00 

L INE 

II 


WR ITE ( 16, 2020 1 

02200110 

LINE 

12 


L INE » 7 

02200120 

L INE 

13 


GO TO 35 

02200130 

L INE 

H 

30 

CONTINUE 

02200140 

L IN E 

15 


WRITE! 16, 2021 I 

02200150 

L INE 

16 


LINE = LINE & 12 

02200160 

L INE 

17 

35 

CONTINUE 

02200170 

L INE 

18 


WRITE! 16, 2008 1 r 

02200X80 

L INE 

19 


WRITE! 16, 2002 ) / FREQ, MACH 

02200190 

L INE 

20 


WRITE! 16, 2011 J XP 

022U02U0 

L INE 

21 

C 


02200210 

L INE 

22 


DO 50 I=l,JMQDE 

02200220 

L INE 

23 


WRITE! 16,2009) !I , J, TL! J ,I ) , TMl J, I ) , J=l,NWINGI 

02200230 

L INE 


50 

CONTINUE 

022UU240 

L INE 

25 

C 


02200250 

L INE 

26 


LINE = LINE K NWING*JMODE 

022 J0260 

L INE 

27 


L INE = MOD! LINE , LMAX ) 

02200270 

L INE 

28 

C 


02200280 

L INE 

29 


RETURN 

02200290 

L INE 

30 

2002 

FORMAT! 6X, IIHFREOUENCY =, F7.4, 

02200300 

L INE 

31 


i 22X, 13HMACH NUMBER =, F7.4 / » 

02200310 

L INE 

32 

2008 

FORMAT! 46X,31HT0TAL LIFT AND PITCHING MOMENIS ) 

02200320 

L INE 

33 

2009 

FORMA TU 15X, 14, 6X, 14, 5X» 2! 3X, E12.6), 8X, 2! 3X, E12.6 J 

) >02200330 

L INE 

34 

2011 

FORMAT! 15X, 4HM0DE , 6X, 

02200340 

L INE 

35 


1 4HWING, 8X, 1011H-),6H LIFT , ll(lH-), 8X, 25HPICHING MOMbM 

ABOU22OO350 

L INE 

36 


lUT X = ,E12.6 / ) 

02200360 

L INE 

37 

2020 

FORMAT! IHl ) 

022003 70 

L INE 

38 

2021 

FORMAT! ////// ) 

02200380 

L INE 

39 


END 

02200390 



DIS PLAV 


FILE 


DECK 23 


L INE 

I 


SUBROUTINE 0UTP3( 16, MACH, FREU, JMODE , CJ, 

LINE, 

LMAX, TITLE ) 

02J000 10 

L INE 

2 


COMPLEX 0(10,101 



02300020 

L INE 

3 


COMPLEX ROW (31 



02300030 

L INE 

A 


REAL MACH 



02300040 

L INE 

5 


DIMENSION NST(3) 



023D0050 

L INE 

6 


DIMENSION TITLE(14» 


, 

02300060 

L INE 

7 

C 




02300070 

L INE 

8 

C 

WRITE TABLE PRINT OF GENERALIZED AERODYNAMIC 

CUEFFIC. MATRIX 

02300080 

L INE 

9 

C 




02300090 

L INE 

10 


IF( LINE ,NE. LMAXCl I GO TO 25 



02300100 

L INE 

11 


WRITE! 16, 2015 I TITLE, FREO 



02300110 

L INE 

12 


LINE = 6 



02300120 

LINE 

13 


GO It) 30 



02300130 

L INE 

lA 

C 




0<i300l40 

L IN E 

15 

25 

CONTINUE 



02300150 

L INE 

16 


IFI LMAX - LINE .GE. 13CJM0DE ) GO TO 30 



02300160 

LINE 

17 


WR ITE( 16, 2020 ) 



02300170 

L INE 

18 


LINE = 8 



02300180 

L INE 

19 


GO TO 35 



02300190 

LINE 

20 

30 

CONTINUE 



02300200 

L INE 

21 


L INE = LINE G 13 



02300210 

L INE 

22 


WRITE! 16, 2021 I 



02300220 

L INE 

23 

35 

CONTINUE 



02300230 

L INE 

24 


WRITE! 16, 2010 ) FREO, JMODE, MACH 



0230 0240 

L INE 

25 

C 




02300250 

LINE 

26 


NCL = 3 



02300260 

L INE 

27 


DO 100 J=l,JH0DE,3 



02300270 

LINE 

28 


KK = JMQOE - J C 1 



U23UU280 

LINE 

29 


IF( KK .LT. 3 I NCL = KK 



02300290 

L INE 

30 


DO 50 K;=l,NCL 



02300300 

L INE 

31 


KO = K G J - 1 



02300310 

L INE 

32 

50 

N ST(K ) = KO 



02300320 

L INE 

3 3 


IF( J ,E0. 1 » GO TO 65 



02300330 

L INE 

34 


IF{ LMAX - LINE .GE. 5GJM0DE ) GO TO 60 



02300340 

LINE 

35 


WRITE! 16, 2020 ) 



02300350 

L INE 

36 


LINE = 6 



C2300360 

L INE 

37 


GO TO 65 



02300370 

L INE 

38 

60 

CONTINUE 



02300380 

LINE 

39 


WRITE! 16, 2022 ) 



02300390 

L INE 

40 


L INE = LINE G 5 



02300400 

L INE 

41 

65 

CONTINUE 



02300410 

L INE 

42 


WR ITE ( 16, 2011 ) NSTdl 



02300420 

L INE 

43 


IF! NCL .GE. 2 » WRITE! 16 , 2023 ) NST(2» 



0230U430 

L INE 

44 


IF! NCL .EQ. 3 ) WRITE! I6j 2024 » NST(3I 



02300440 

L INE 

45 


WRITE! 16, 2022 ) 



023UU450 

L INE 

46 


on 90 1=1, JMODE 



02300460 

LINE 

^7 


DO 80 K=1,NCL 



02300470 

L INE 

40 


KO = K G J - 1 



02300460 

L IN E 

49 

80 

ROWCK ) =0(1 ,K0) 



02300490 

L INE 

5 0 

90 

WRITE! 16, 2012 ) I, ( BDW(K», K= 1 , NCL ) 



O23JU500 

L INE 

51 


L INE = LINE G JMODE 



023U0510 

L INE 

52 


L INE = MOD! LINE ,LMAX ) 



02300520 

L INE 

53 

100 

CONTINUE 



02300530 

L INE 

54 


RETURN 



02300540 

LINE 

55 

2010 

FORMAT! lOX, IIHFREOUENCY =, F7.4, 18X, 



02300 550 

L INE 

56 

1 56HGENERALI ZED AERODYNAMIC COEFFICIENTS IN 

agakd 

DEFINITION / 

02300560 


L INE 

57 


2 lOX, 13. 

6H MODES. 27X, 13HMACH NUMBER 

F7.4 1 

02300570 

L INE 

58 

2011 

FORMA T( 

/ lOX 

. 12H0I SMLACEMENT / 13X, 4HM0UE, 8X. 

U2300b8U 

L INE 

55 


1 IdH— 

— PkESSUI'E MflOfc . 13, 5H I 


023U0590 

L INE 

60 

2012 

FORMAT! 

15X, 

13, 3! 8X, E12.6. 2X. E12.6 

) I 

02300600 

L INE 

61 

2015 

FORMAT! 

Itil . 

45X, 14A4 // 46X.11HFRE0JENCY =. F7.4//1X. 65! 2H 6 » 

102300610 

L INE 

62 

2020 

FORMAT! 

IHl » 



02300620 

L INE 

63 

2021 

FORMA T! 

/ / 

( t 1 i i 


02300630 

L INE 

64 

2022 

FORMAT! 

1 



02300640 

L INE 

65 

2023 

FORMA T! 

IH6, 

63X. 18H PRESSURE MODE, 

13, 5H I 

0^300650 

L INF 

66 

20 24 

FORMA T( 

IHE, 

57X. 18H PRESSURE MCOfc, 

13, 5H — “ ) 

02 J00660 

L INE 

67 


END 




02300670 


- 6 . 59 - 



OHIGii^!AL PAG?' 
OF POOR QUiiLir:: 


DISPLAY. ..FILE 


DECK 2A 


L INE 

I 


SUBROUTINE PHIL I XLE , XCEN .U POX , NE PS t PHI » A.CXPt PHIH ) 

02400010 

L INE 

2 


COMPLEX Bl, 30, AA, Xl , XIPl, EX 

024UU020 

L INE 

3 


COMPLEX Cl, CX, XDIFS 

U2400U30 

LINE 

4 


COMPLEX EAXI, EAXIPI, AXl, AXI PI , SUM 

02400040 

L IN E 

5 


COMPLEX PHIdl, DPDX(l), A, CXPIl) 

02400050 

L INE 

6 


COMPLEX PHlwm 

02400060 

L INE 

7 


LOGICAL WAKEl, WAKE, WAKENZ, TREDGE 

02400070 

L INE 

8 


DIMENSION XCXN(l) 

02400080 

L INE 

9 


COMMON/WAKE/ ITWM, I TW , I C NVG W , 6 PS W, JC NVGW 

02400090 

L INE 

10 


COMMON /WAKEUP/ WTE S ( 1 2 1 rTREDGE , WAKEl, WAKE, WAKENZ 

02400100 

L INE 

11 


DATA Cl / (1.0, O.OJ / 

U2400110 

L INE 

12 

C 


02400120 

L INE 

13 


IF( NEPS .EQ. 1 J GO TO 40 

02400130 

L INE 

14 

C 


02400140 

L INE 

15 


XIP 1 = CMPLX( )CEN(2) , 0. 0 > 

02400150 

L IN E 

16 


CX = CMPLX( (XCE N(l) -XCEN52) 1 , 0.0 > 

02400160 

L INE 

17 


Bl = ( DPDXm - DPDX(2J ) /CX 

U24UU170 

L INE 

18 


BO = 0PDX(2» - Bi + XIPl 

02400180 

L INE 

19 


IF( CABSIAI .LT. l.OE-20 J GO TO 20 

02400190 

L INE 

20 

c 


02400200 

L INE 

21 

c 


0240U210 

L INE 

22 


XI = CMPLX< XLE, 0.0 1 

02400220 

L INE 

23 


XIP 1 = CMPLX( XCEN(l) , 0,0 » 

02400230 

L INE 

24 


AA = A * A 

024UU240 

L INE 

25 


AXI = A*XI 

02400250 

L INC- 

26 


AXIPl = A*X!P1 

U24UU260 

L INE 

27 


EAXI = CEXP ( AXI 1 

02400270 

L INE 

28 


EAxiP 1 = cxp m 

O240O2BO 

L INE 

29 


Ex = Cl / EAXIPI 

U24U0290 

LINE 

30 

c 


0240 03 00 

L INE 

31 


SUM = (31/AA»*( ( AXI Pl-CU *EAXIP1 - ( AX 1-Cl )*EAX I ) 

02400310 

L INE 

32 


1 6 (B0/AJ*( EAXIPI - EAXI » 

02400320 

L INE 

33 

c 


02400330 

L INE 

34 


PHim = SUM*EX 

02400340 

L INE 

35 

c 


02400350 

L INE 

36 

c 


02400360 

L INE 

37 


XI = XIPl 

02400370 

L INE 

38 


DO 10 IP1 = 2,NEPS 

024U038U 

LINE 

39 


I = IPl - 1 

02400390 

L INE 

40 


XIPl = CMPLX( XCENdPlJ, 0.0 ) 

02400400 

L INE 

41 


CX = CMPLXi (XCENd )-XCEN(IPU ) , 0.0 > 

02400410 

LINE 

42 


Bl = ( OPDXtH - DPDXdPl) ) / CX 

024U0420 

L INE 

43 


00 = opoxdp 1 ) - si*xi PI 

02400430 

L INE 

44 

c 


U24U044U 

L INE 

45 


XI = XIPl 

02400460 

L INE 

46 


AXI = AXIPl 

02400460 

1 INE 

47 


EAXI = EAXIPI 

U24004 70 

L INE 

48 


AXIPl = A«=XIPl 

02400480 

L INE 

49 


EAXIP 1 = CXP (I PI) 

0240U4S0 

L INE 

50 


EX = Cl / EAXIPI 

O240U5U0 

L INE 

51 

c 


02400510 

L INE 

52 


SUM = SUM fl(Bl/AAI>M ( AX I PI- Cl ) *E AX I P 1 - ( AX I-CL )=»LAX I 1 

02 4012^20 

L INE 

53 


1 £ (BO/Aj *( EAXI PI - EAXI ) 

02400530 

L INE 

54 

c 


024U054U 

L INE 

55 


PHIdPl) = SUM#EX 

02400550 

L INE 

56 

c 


02400560 


-6 . 60- 





Qvai. 


‘if: 


L INE 

57 

10 

CONTINUE 

02400570 

L ^^JE 

5fl 

C 


029U058U 

L INF 

59 


GO T3 52 

U24UU59U 

c INE 

60 

20 

CONTINUE 

0240U6C0 

L INE 

61 


CK = GMPLXI ULE-XCEN(in, 0.0 > 

U24JU610 

L INE 

62 


XDIFS = CMPLXI 0.501 XLE’t'XLh-XCENU 1 *XCeN(l) 1 , 0,0 1 

U24U062U 

L INE 

63 


SUM « 6 0<'CX C BIOXDIFS 

D24UU6J0 

L IN E 

6^ 


PHK U * SUM 

0240U6A0 

L INE 

65 


DO 30 IP1 = 2,NEPS 

02400650 

L INE 

66 


I = 1^1 - 1 

U2A0066U 

LINE 

67 


CX = CMPLXI UCENin-XCENl IPIN » 0.0 ) 

0240U6 ?U 

L INE 

6S 


81 = 1 DPDXm - DPOXIiPlI I / CX 

U24v)068U 

L INE 

69 


BO = OPOXIIPII - B1*XI PI 

U24006 9U 

L INE 

70 


XDIFS = CMPLXI 0.50(XCEN(noXCENm-XCeN(lPlI*XCEN< IPIM, 0.0 » 

02400/00 

t INE 

71 


SUM = SUM a OOOCX C 01 ♦ XDIFS 

02400710 

L INE 

72 


PHIUPI) = SUM 

U240U720 

L INE 

73 

30 

CONTINUE 

UJAOU/Sp 

L IN E 

74 


GO T3 52 

U24U07//U 

L INE 

75 

C 


02400750 

L INE 

76 

40 

CONTINUE 

U2400760 

L INE 

77 

C 


0240U770 

L INE 

78 

c 

SECTION FOR ONLY ONE ELEMENT PER SPAN 

0240U780 

L INE 

79 

c 


02400 79U 

LINE 

80 


CX = CMPLXI XCENIII-XLE, 0.0 1 

02400800 

L INE 

61 


IFI CABSIAI ,LT. l.OE-20 I GO TO 50 

02400810 

L INE 

82 


PHKl) = (OPDXIU/AI + I Cl - CEXPI -A*CX ) 1 

U24UD820 

LINE 

83 


GO T3 52 

02400830 

L INE 

84 

50 

PHIIl) = DP0X(1)*CX 

02400840 

L INE 

85 

52 

ICNVGW =0 

02400850 

L INE 

86 

C 

INITIALIZE ICNVGW ==0 

U2400B60 

L INE 

87 

c 

ICNVGW =1 MEANS AT LEAST ONE PHI HAS NOT CONVERGED FUR SPAN 

02400 8 70 

L IN E 

88 

c 

ICNVGW=0 MEANS CONVERGENCE HAS OGCURED FOR WAKE ELEMENTS 

024U0880 

L INE 

89 

c 

ITW = WAKE CONVG. ITERATION COUNTER INITIALLY SET =0 

02400890 

L INE 

90 

c 

ITWM = MAX. NQ. ITERATIONS IF WAKE EFFECT IS DESIRED 

02400900 

L IN E 

91 

c 

ITWM =0 IF WAKE ELEMENT EFFECT IS NOT DESIRED 

024U0910 

LINE 

92 


IFI ITW .EO. 01 GO TO 58 

0240 0920 

L IN £ 

93 


IFI .NOT. WAKE! GO TO 58 

02400930 

L INE 

94 


ICNVGW = IRELEI PHI, PHIWiNEPSI 

02400940 

LINE 

95 


IFI ICNVGW .EQ.O I JCNVGW = JCNVGW C NEPS 

02400950 

L INE 

96 

58 

CONTINUE 

02‘«0096U 

L INE 

97 


DO 60 IP1=1,NEPS 

02400970 

L INE 

96 

C 

IFI ITW .EQ.O) GO TO 60 

02400980 

L IN E 

99 

C 

IFI .NOT. WAKE) GO TO 60 

02400990 

L INF 

100 

C 

ICNVGW =IRELEIPHI (IPl) f PHIWIIPl), ICNVGW ) 

02401000 

L INE 

101 

C 

IFI ICNVGW .EQ. 0 ) JCNVGW = JCNVGW fi 1 

02401010 

L INE 

10 2 

60 

PHIWI IP 1 )= PHI 1 1 PI) 

02401020 

L INE 

103 

62 

RETLRN 

02401030 

L INE 

10 4 


END 

024U1U4U 
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DISPLAV 


FILE 


DECK 25 


L INE 

1 

SUBPDUTINE PLOTl X, Y,IPENI 

02500010 

L INE 

2 

I^I IPEN .EQ. -231 GO TO 100 

02500020 

L INF 

3 

IF( IPEN .EU. 231 IPEN = -3 

02500030 

L INE 

4 

CALL CALPLTI X*Y» IPEN) 

02500040 

L INE 

5 

RETLRN 

02500050 

L INE 

6 

100 SX = X E 2.0 

02300060 

L INE 

7 

CALL NFR AHE ( SX, Y) 

025000 10 

L INE 

8 

RETURN 

02500080 

L INE 

9 

END 

02500090 




DISPLAY .. 

-FIL E 

DECK 26 






L INE 

1 


SUBROUTINE PLOTGO ( NE f XYZ, NNCH, NSPt 

NSECI 

, TITLE, 

JW ING, 

02600010 

L INE 

2 


1 2SECT, AR, MACH 

1 




U26U0020 

L INE 

3 


REAL MACH 





026UU030 

L INE 

4 


DIMENSION NEIll, ZSECTIl), NSP(l) 





02600040 

L INE 

5 


DIMENSION PH(7» , PV(7» 





02600050 

L INE 

6 


DIMENSION XYZai. NNCHdl, TITLEIU 





U260UQ60 

L INE 

7 


DATA FGOX, FbD Y / 15.0, 10.0 t 





026000/0 

L INE 

a 


DATA HT, HTW, HHT / .07, .06202 , . 

035 

/ 



U26O00B0 

L INE 

9 


DATA NETSV / 1 / 





U26U0U90 

L INE 

10 

C 






02600 100 

L INE 

11 

C 






026UU110 

L INE 

12 


IF( J^ING .EQ. 1 » NETSV = 1 





02600120 

L INE 

13 


NEPWT = 0 





02600130 

L INE 

lA 


K INDEX = 1 





U2600K,0 

L INE 

15 


KFIRST = 1 





02600150 

L INE 

16 


KLAST = 0 





02600160 

L INE 

17 

C 






026001 /O 

L INE 

18 


DO 100 IS=1,NSECT 





02600180 

L INE 

19 

C 






02600190 

LINE 

20 


NEPS = NE(IS) 




, 

0ii6U02U0 

L INE 

21 


K = K INDEX 





02600210 

L INE 

22 


XMAX = XYZIKI 





02600220 

L INE 

23 


XM IN = XMAX 





C2600230 

L INE 

2A 


YMAX = XYZIKS4) 





U260024U 

LINE 

25 


YMIN = YMAX 





0260 0250 

L INE 

2 6 


DO 10 1=1, NEPS 





02600260 

L INE 

27 


00 3 J = 1,4 





026002/0 

L INE 

28 


XMIN = AMINK XMIN, XYZ(K) J 





02600280 

L INE 

29 


XMAX = AMAXK XMAX, XYZIKI ) 





U2600290 

LINE 

30 

3 

K = K G 1. 





026UU300 

L INE 

31 


DO 6 J=l,2 





02600310 

L INE 

32 


YMIN = AMINK YMIN, XYZIK) ) 





02600320 

LINE 

33 


YMAX = AMAXK YMAX, XYZIK) ) 





C2600330 

L INE 

34 

6 

K = •< G 1 





02600340 

L INE 

35 

10 

CONTINUE 





02600 350 

L INE 

36 

C 

FGDX = MAXIMUN X PLOT SIZE 





02600360 

L INE 

37 

c 

FGOY = MAXIMUM Y PLOT SIZE 





026003 to 

L INE 

38 


SFH = I XMAX- XMIN) /FGDX 





02600380 

L INE 

39 


SFV = IYMAX-YMIN)/FGDY 





02600390 

L INE 

40 

c 

SF IS A SCALE FACTOR SUCH THAT 

I 

INCH = 

SF 


U26004U0 

L INE 

41 


SF = AMAXK SFH.SF V ) 





02600910 

L INE 

42 

c 

TMXX AND TMYY ARE THE ACTUAL 

DIMENS ION 

OF THE 

PLOT 

02600420 

L INE 

4 3 


TMXX = I XMA X-XMI N) /SF 





02600930 

L INE 

44 


TMYY = 1 YMAX-YMI N) /SF 





02600990 

L INE 

45 


PHI 6) = XMIN 





02600950 

L INE 

46 


PHI 7) = SF 





02600960 

L INE 

47 


P VI 6) = YMIN 





02600970 

L INE 

48 


PVI7) = SF 





02600980 

L INE 

49 

c 

WRITEI6, 1002 ) XMAX, XMIN, YMAX, YMIN, 




02600990 

L INE 

50 

c 

1 SFH, SFV, TMXX, TMYY, SF 





U260U5U0 

L INE 

51 

c 






C2600510 

L INE 

52 

c 

DRAW LINE TO MARK ORIGINAL ORIGIN, 

LIFT 

PEN, AND 

REDR IGIN 

02600520 

L INE 

53 

c 






02600530 

L INE 

54 


CALL PLOTI 0.25, 0.0, 2 ) 





02600590 

L INE 

55 


call PLOTI 0.75, 0. 0, 3 ) 





02600550 

LINE 

56 


CALL PLOTI 2.0, 0.25, 23 ) 





02 600560 


L IME 

57 

C 




02600570 

L INE 

58 

C 


SECTION TO PUT TITLE AND HEADING ON PLOT 


02O005B0 

L INF. 

59 

c 




026UU59U 

L INF 

60 



Y = 0.25 


U26UU6U0 

L INE 

61 



DO 12 I =1,14 ' 


02600610 

L INE 

62 


> 

CALL SYMBOL ( -1.5, Y, .21, TI TLE ( I) , yO.0 , 4 ) 


02600620 

1. INE 

63 


12 

y = Y £ 0.728 


02600630 

1. INE 

64 

c 




02600640 

L INE 

65 



CALL SYMBOL ( -1.15, .25, .21, 14HASPECT RATIO =, 90.0, 

14 I 

02600650 

L INE 

66 



CALL NUMBER ( -1.15, 2.98, .21, AR, 93.0, 3 i 


02600660 

L INE 

67 



CALL SYMBOL ( -1.15, 4.7, .21, 13HMACH NUMBER =, 90.0, 

13 ) 

026006 /O 

L INE 

68 



CALL NUMBER ( -1.15, 7.10, .21, MACH, 90.0, 3 I 


02600680 

L INE* 

69 



CALL SYMBOL ( -0.80, .25, .21, 14HSECTI0N NUMBER, 90.0, 

14 I 

02600690 

L INE 

70 



FPN =FLOAT(I S) 


02600700 

L INE 

71 



CALL NUMBER ( -0.80, 2. 98, .21 , FPN, 90.0, -1 ) 


02600710 

L INE 

72 



CALL SYMBOL ( -O.BO, 3.52, .21, 7H0F WING, 90.0, 7 I 


02600720 

L INE 

73 



FPN = FLOAT! JWINGI 


02600 730 

L INE 

74 



CALL NUMBER ( -0.80, 4. 97, .21 , FPN, 93.0, -1 ) 


02600740 

L INE 

75 



CALL SYMBOL ! -0.80, 6.33, .21, 3HZ =, 90.0, 3 ) 


02600750 

L INE 

76 



FPN = ZSECTdSI 


U260U760 

L INE 

77 



CALL NUMBER ( -0.80, 7.06, .21, FPN, 93.0, 3 ) 


026007/0 

L INE 

78 

c 




02600780 

L INE 

79 

c 


SECTION TO PLOT ELEMENTS 


U26UU790 

L INE 

80 

c 




02600800 

L INE 

81 



K = K INDEX 


026UU810 

LINE 

82 



DO 20 I=1,NEPS 


U2600820 

L INE 

83 



DO 19 0=1,4 


02600830 

L INE 

84 



PH(JI = XYZIK) 


026UU840 

L INE 

85 



IF! 0 .GT. 2 ) GO TO 1 9 


0260UB50 

L INE 

86 



PVUI = Xy2<KC4J 


02600860 

L INE 

87 


19 

K = K £ 1 


02600870 

L INE 

88 



P V! 3) = XYZ( K£U 


02600880 

L INE 

89 



PV!4I = XYZ(K) 


U260U890 

LINE 

90 



K = K £ 2 


02600900 

LINE 

91 



PH( 5) = PHIIJ 


U26U0910 

L INE 

92 



pv! 5) = pvm 


02600920 

L INE 

93 

c 


WRITE(6,1U03 ) 1, ( PHir J» ,I 0=1 ,5) , ! PV ! I 0 1 , 1 0= 1, 5 ) 


02600930 

L INE 

94 



CALL LINE! PH, PV, 5, 1, 0, 0, O.OJ 


0260U94U 

L INE 

95 


20 

CONTINUE 


02600950 

L INE 

96 

c 




02600960 

L INE 

97 

c 


SECTION TO LABLE ELEMENTS ON THE TRAILING EDGE 


02600970 

L INE 

98 

c 




02600980 

L INE 

99 



KLAST = NSPUS) £ KLAST 


02600990 

L INE 

100 



DO 30 I=KFIR ST, KLAST 


02601000 

V INE 

101 

c 


NETSV IS THE NUMBER OF ELEMENTS IN THE PREVIOUS WINGS PLUS 1 

L 026-J1010 

L INE 

10 2 



0 = 6*!NNCH! I )-NETSVI £ 1 


02601020 

L INE 

103 



SFH = 0.25-^! XYZIO) £ XYZ{0£1) £XYZ!0£2I £ XYZ(0£3I » 


02601030 

L INE 

104 



SFV = 0.53A! XYZ!J£4) £ XYZ(0£5n 


02601040 

L INE 

105 



SFH = ( SFH- XMIN) /SF £ HH T 


02601050 

L INE 

106 



SFV = (SFV-YMINJ/SF - HTW 


02601060 

L INE 

107 

c 


(SPH.SFV) ARE COORDINATES OF CENTER OF ELEMENT 


026010 70 

L INE 

108 

c 


TO CENTER CHARACTER, MOVE OFF CENTER BY (HTW,HHT) 


02601080 

L INE 

109 



GP = FLOAT! NNCH!I» I 


U26U1090 

LINE 

110 



CALL NUMBER! SFH, SFV, HT, GP, 90.0, -1 1 


U26UUUU 

L INE 

111 


30 

CONTINUE 


'UlO 

LINE 

112 



KFIRST = KFIRST £ NSP<I SI 


Ot 120 

L INE 

113 

c 




02601130 

LINE 

114 

c 


SECTION TO REORIGIN FOR NEXT PLOT AND RUMP BLOCK ADDRESS BY 

lU2o01 140 

L INE 

115 

c 




02601150 

L INE 

116 



SX = TMXX £ 3.0 


U26U1 160 

L INE 

117 



SX = AMAXK SX, 17. ) 


026011 70 

L INE 

118 



CALL PLOT! SX, -.25,-23 ) 


02601180 
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LINE 119 
L INE 120 
LINE 121 
L IME 122 
LINE 123 
L INE 124 
LINE 12 5 
LINE 126 
LINE 127 
LINE 128 
LINE 129 
LINE 130 
LINE 131 
LINE 132 
LINE 133 
LINE 134 
LINE 135 
LINE 136 


C 

C UPDATE COUNTER OF ELEMENTS IN WING 

NFPWT = NEPWT L NEPS 
KINDEX = KINDEX C 6*NEPS 
C 

C END LOOP ON SECTIONS 

100 CONTINUE 

C UPDATE ELEMENT COUNTER 

C WETSV IS THE NUMBER OF ELEMENTS IN THE PREVIOUS WINGS PLUS 

NETSV = NETSV £ NEPwT 


C 

RETLRN 


C1002 FORMAT! // 

• XMAXtXMIN*, 

2E14.4, 

5X, 

• YMAXfYMiN' » 

2E14.4 

// 

C 2 



1 

' SFH ,SFV • , 

2E14.4 

n 

C 3 

• TMXX,TMYY*, 

2E14.4 , 

5X t 

•SF • , 

1E14.4 

// 


C 4/ • PH FOLLOWED BY PV FOR EVERY ELEMENT • / ) 

C1003 FORMAT! // 15, 2(/ 5X , 5E14.4 I I 

END 


02601190 
02601^:00 
02 b 01,:10 
0260 1220 
U26UU30 
02601240 
02601250 
02601260 
1 02601270 
026O1280 
02601290 
026OU00 
02601310 
0 2601320 
02601330 
02601340 
02601350 
026U1360 
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CISPLAV.. 

.FILE 

DECK 27 


L INE 

1 


SUBROUTINE PTGRIDI 16, TI TLt 'HrtCH i N^ING, NSECT» NS P, NNCH» XV7, 

02700010 

L INE 

2 


1 2SECT, REFLEN, 3EEIA, XCEN I 

02700020 

LINE 

3 


REAL MACH 

02700030 

L INE 

A 


DIMENSION NNCHIU, NSP(3,1I 

02/00040 

L INE 

5 


DIMENSION TITLE(14), NSECTUI, XY2(1), 2SECT(3,4I 

02700050 

L INE 

6 


DIMENSION XCENIU 

U270UU60 

L INE 

7 


DIMENSION Xy(8) 

02 70 0 U70 

L INE 

e 


BL = BEETA*REFLEN 

02700080 

L INE 

9 


WRITE! 16,3000 1 TITLE, MACH 

027UOU90 

L INE 

10 


WRITE! 16, 3003 1 

02700100 

L INE 

11 


KSPAN = 0 

02700110 

LINE 

12 


K = 0 

U2700120 

L INE 

13 


N1 « 1 

02700130 

L INE 

14 


DO 100 J=l,NUING 

02700140 

L INE 

15 


.NS = NSECTtJI 

02700150 

LINE 

16 


DO 95 1=1, NS 

02700160 

L INE 

17 


WRITE! 16,30011 J, I, ZSECTU.J) 

02 700170 

L INE 

18 


NSPAN = NSP!I,JJ 

02700180 

LINE 

19 


00 90 I SPAN =1, NSPAN 

02/00190 

L INE 

20 


KSPAN = KSPAN C 1 

U27002CO 

L INE 

21 


NEPS = NNCHl KSPAN) - K 

02700210 

L INE 

22 


DO 85 It = 1,NEPS 

02/00220 

L INE 

23 


K = < C 1 

02700230 

L INE 

24 


XY!7) = 0 

02/00240 

L INE 

25 


IN = Nl 

02700250 

L INE 

26 


DO 80 JJ -= 1, 4 

02700260 

L INE 

27 


XY( JJ I = XYZ!IN)«8L 

02 /0U270 

L INE 

28 


XY! 7J = XY( 7) fi XV! JJ) 

02700280 

L INE 

29 


IN = IN C 1 

02700290 

L INE 

30 

80 

continue . 

0270U3C0 

L INE 

31 


XY! 7) = XY( 7)/4. 0 

02700310 

L INE 

32 


XY! 5) = XYZ! IN)=«‘REFLEN 

02/00320 

L INE 

33 


XY( 6) = XYZ! INCl )^REFLEN 

02/00330 

LINE 

34 


XY! 8) = 0.5* ! XY(5) £ XY(6) ) 

02700340 

L INE 

35 


WRITE! 1 6, 3002 ) I SPAN, K, XY 

02700350 

L INE 

36 


XCEN!K ) = XY!7) /BL 

02700360 

L INE 

37 


Nl = Nl S 6 

02 7003 70 

L INE 

38 

85 

CONTINUE 

02700380 

L INE 

39 

90 

CONTINUE 

02/00390 

L IN E 

40 

95 

CONTINUE 

027004C0 

L INE 

41 

100 

continue 

02700410 

L INE 

42 


RETURN 

02/00420 

L INE 

43 

3000 

FORMA T! LHl/35X,14A4//35X, 32HAERODYNAMI C GRID FOR MACH NUMBER, 

02/00430 

L INE 

44 


1 F3.4 / ) 

02 /0U440 

L INE 

45 

3001 

FORMAT! / 6H WING, I 2 , 8H SECTION, 12 / 5H L =,2X,E11.5/ 

02/00450 

L INE 

46 


1 14H SPAN ELEMENT, 4X, 2HX1, 12X, 2HX2, 12X, 2HX3, 12X,2HX4, 

02700460 

L IN E 

47 


2 12X^ 2HY1, 12X, 2HY2, 13X, 2HXC, 12X, 2HYC / ) 

027004 /O 

L INE 

48 

3002 

FORMAT! 15, 19, IX, 6! 3X, Ell. 5), 4X, Ell. 5, 3X, Ell. 5 ) 

02/00480 

L IN E 

49 

3003 

FORMAT! / 35X, 30 HS T RUCT J R AL REFERENCE SYSU2/J0490 

L INE 

50 


ITEM OR / 35X, 35HRCTATED STRUCTURAL REFERENCE SYSTEM / ) 

02/00500 

L INE 

51 


END 

U270U510 
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DISPLAY 

...FIL E 

DECK 2 6 


L INE 


SUBPDUTINE RDE TA ( 113, DETADX, ETA, NET! 

02800010 

L INE 

2 

DIMENSION OETAOXINETI , ETAINET) 

02800020 

L INE 

3 

READ (1 131 

02800030 

L INE 

A 

1 JM1,NET1, DETADX, ETA 

023000^0 

L INE 

5 

RETIRN 

02800030 

L INE 

6 

END 

02800060 
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BI^RODUGlBlLlTy ,0| 

ORlGil^AL PAGE IS POOR 


CISPLAy ...FILE 


DECK 29 


L INE 

1 


SUBROUTINE KOMODEI JMODE , NWING, NSECT, NE , XC6N, XYZ, BEEIA, 

L»29J0010 

U INE 

2 


1 REFLENtNETfLAy , I D ,E RR OR ,E TA , DET AJ X« I 5 , 16 , XF,YF» A, N-^X,IbRRi 

U2900U2U 

L INE 

3 


L&GICAL ERROR 

02900030 

L INE 

A 

C 

ETA AND UETAOX DIMENSIONED ( NUMBER GF ELEMENTSt NO. MODE! U2900U40 

L INE 

5 


UIMENSIUN CFTA8L (6,20) , IFTA3L(2,2J) 

02900050 

L INE 

6 


dimension £TA(NET,l), Db TADX ( NET , 1 ) 

02500060 

L INE 

7 


dimension ID(1) 

029000 m 

L INE 

6 


DIMENSION MODE (20) 

02900080 

L INE 

9 


DIMENSION M00EF4(6) 

02900090 

L INE 

10 


DIMENSION NCHECM4,3) 

02900100 

L INE 

11 


DIMENSION NSECTd), NE(3,1), XCEN(l), XYZ(l) 

02900110 

L INE 

12 


DIMENSION NUMrfRO), M0DEFK7), MUDEF2(13), M0DbF3(7) 

02900120 

L INE 

13 


DIMENSION XF(i) ,YF (I) , A(l) 

0290U130 

L INE 

lA 


COMMON /MCOM/ CFTARL, IFTABL, NTABL, NEQF 

02900140 

L INE 

15 


COMMON / MODEF / EMdOl, DM(IO), X, Y, Jl, J2 

02900150 

L INE 

16 


CDMMD'J /XYSCAL / XX, VY, XO , YC, BRbF, ZZZ, ITEST 

02900 160 

L INE 

17 


COMMON /ZFUNNY7 N,IERF, B1,B2, B3,NFUNMX 

029001/0 

L INE 

18 


DATA L6LANK / 4H / 

02900180 

L IN E 

19 


DATA LEND / 3HEN0 / 

02900190 

L INE 

2C 


DATA LMW / 4HMDWI / 

02900200 

L INE 

21 


DATA LRIG / 4HRIGM / 

02900210 

L INE 

22 


DATA MQDONE / 2H ) / 

U29U0220 

L INE 

2 3 


DATA MODEFi / 3H(//, IHl , 4H(24X, 4H,4HM, 4H00E,, 4HI2,3, 3HX ) ) 

/02900230 

L INE 

24 


DATA MOD6F2 f 4HU0H, 4H E, 4HLEME, 3HNT,, IHl, 4H(10X, 4H, 3Hb 

, 02900240 

L INE 

25 


1 4HTA,9, 4HX,11» 4HriD(6, 4HTA)/, 4HDX , 3HIZ) t 

02900250 

L INE 

26 


DATA M0DEF3 / 4H ( ( 1 1 , 2H0,, IHi , 4H(3X,, 4H2E15, 4H.6)), IH) Z 

02901)260 

L INE 

27 


DATA M0DEF4 / 4H ( / 2, 4H0X,I, IHl, 4H,6H , 4HM0DE, 2HS ) / 

02900270 

L INE 

28 


DATA NCHECK / 12«0 / 

02900280 

L INE 

29 


DATA NUMBR / IHl, 1H2 , 1H3 / 

02900290 

L INE 

30 

C 


02900300 

L INE 

31 


XO = 0.0 

U2900310 

LINE 

32 


YD =0.0 

02900320 

L INE 

33 


8REF = 1.0 

02900330 

L INE 

34 


JMODE = 0 

02900340 

L INE 

35 


WR ITE ( 16,1999) ID (1), 10(2) ,ID(3),ID(4) 

02900350 

L INE 

36 


IF( ID( 1 ) .EQ. 0 ) RETURN 

U290U360 

L INE 

37 


1999 FORMAT (// 21X, 18HT0TAL NUMBER MOOES ,21X, 1 12/ 21X, 6HMQDbS , 

02900370 

L INE 

38 


132HDEFINED BY SPLINE OR POLYNOMIAL , IX, 1I2/21X, 9HNJMPbR OF , 

02900380 

L INE 

39 


2 13H RIGID MODES ,17X, U2 / 2 IX , 21 HNU MBER OF POLYNOMIAL , 

02900390 

L INE 

40 


310HEQ UA TIONS , 8X, 112 ///) 

02900400 

L INE 

41 


JR IGID = ID ( 1) 

02900410 

L INE 

4 2 


JTYPE = ID(4) 

U290U420 

L INE 

43 

c 

RDMODE 

02900430 

L INE 

44 


IF{ LAS .EO. LRIG ) GO TO 215 

02900440 

L INE 

45 


JMQDE = ID(2) 

02900450 

L INE 

46 


BR = BEETAt=REFLEN 

U290046U 

L INE 

47 


HALFR = 0.5«=REFLEN 

02900470 

L INE 

48 


IF( JMODE .GE. 10 ) M0DEF4(3) = NUMBR(2) 

029004b0 

L INE 

49 


IF( JMODE .EO. 1 ) M00EF4(6) = MUDONE 

U290U490 

L INE 

50 

c 


029UU500 

L INE 

51 


IF( JTYPE .EQ. 0 ) GO TO 10 

02900510 

L INE 

52 


WRITE! 16, 2001 ) 

U29U0520 

L INE 

53 


WR ITE ( 6, 2009) 

02900530 

L INE 

54 


NEC/F = JTYPE 

02900540 

L INE 

55 


WRITE! 16, 400) NEQF 

029UU550 

L INE 

56 


DO 500 1 =1 , NEQF 

U2900560 
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L INE 

57 



READ 115, 405J lEO. IFTARLtl, lEOl , IFT4BL<2, IEU», 

0290C570 

L INE 

56 



1 (CFTABLI J, lEQI * J = 1 , 6) 

L'29UU5E0 

LINE 

59 



WRITE(I6, 410) lEQ, {IFIAH;'' 1 E U) , J=l,2) , ( CFT ABL ( J, I EG ) , 

U290059U 

L INE 

60 



1 J =1,6 ) 

0290U6CO 

L INE 

61 


500 

CONTINUE 

0290O61O 

L INE 

62 

C 


LOOP OVER ELEMENTS BY WI '..NO SECTION 

0^900620 

L iNE 

63 



J = 5 

'J29UU631) 

L INE 

64 



I = 1 

U2900640 

L INE 

65 



DD 60 0 J1 = J ,NWING .•* 

02900650 

L IN E 

66 



NS = NSECT(Jl) 

U2900660 

L INE 

67 



DO 395 02=1, NS 

029006/0 

L INE 

68 



INI = NE(J2,J1) 

02900680 

L INE 

69 



DO 390 K=1,IN1 

029UU690 

L INE 

70 



X = XCEN(n*BR 

02900700 

L INE 

71 



V = ( XYZ(J) C XY2UL1) ) * HALFR 

02900/10 

L INE 

72 



CALL MFUN ( JMODE) 

02900720 

L INE 

73 



DO 380 IH=1, JMODE 

02900730 

L INE 

74 



ETA( I , IH> = EM(IH) 

02900740 

L INE 

75 



DETAOXI I,IH) = OMIIHI 

02900750 

L INE 

76 

380 

CONTINUE 

02900760 

LINE 

77 



I = I £ 1 

02900/70 

L INE 

78 



J = J£6 

02900780 

L INE 

79 


390 

CONTINUE 

02900 790 

L INE 

80 


395 

CONTINUE 

02900800 

LINE 

81 

600 

CONTINUE 

02900810 

L INE 

82 



INI = 1 

02900820 

L INE 

82 



IN2 = NET 

02900830 

L INE 

84 



GO T3 132 

0290U840 

L INE 

85 


10 

CONTINUE 

02900850 

LINE 

06 

C 


READ MOWING CARD 

02900860 

L INE 

87 

c 



029008/0 

LINE 

88 



READ! 15, 1000) LAB, NW, Nil, NI2, NI3 

02900880 

L INE 

89 

c 



02900890 

L INE 

90 



IF( lab .EQ. LEND ) GO TO 330 

029U0900 

L INE 

91 



IF( LAB .NE. LMW ) GO TO 300 

02900910 

L INE 

92 

c 



02900920 

L INE 

93 

c 


CHECK TO SEE IF SECTION IS DEFINED 

029J0930 

L INE 

94 



IF( NW .GT. NWING ) GO TO 310 

02900940 

L INE 

95 

c 



02900950 

LINE 

96 

c 


HOW MANY SECTIONS ARE DEFINED 

U29U0960 

L INE 

97 

c 



02900970 

L INE 

98 



NSI = 3 

02900980 

L INE 

99 



I Ft N 13 .EQ. 0 ) NSI = 2 

U290U99U 

L IN E 

100 



IF( NI2 .EQ. 0 ) NSI = 1 

02901000 

L IN E 

101 



IF( Nil .EG. 0 J GO TO 310 

02901010 

L INE 

102 

c 


IF 2 SECTIONS ARE INPUT, THEY MUST HE CONTINJOUS 

02901020 

L INE 

103 

c 



U29U1U30 

L INE 

104 



IFt NSI .EQ. 2 .AND. I AB S < NI 2-NI 1 ) .NE. 1 ) GO TO 320 

0290 1040 

L INE 

105 

c 



02901050 

L INE 

106 

c 


FIND FIRST AND LAST SECTION FOR THIS MODE GROUP 

02901060 

L INE 

107 

c 



02901070 

L INE 

108 



NSF = Nil 

U2901O8O 

L INE 

109 



NSL = Nil 

029U109U 

L IN E 

110 



WRITEt 16, 2 001 1 

029UI 100 

L INE 

111 



WR ITE( 16, 2302 ) NW, NI 1 

029JU10 

L INE 

112 



IFt MSI .EQ. 1 ) 30 TO 20 

02901120 

L INE 

113 



NSF = MINOt NSF,NI2 ) 

U2901130 

L INE 

114 



NSL = MAXOt NSL,NI2 ) 

02901140 

L INE 

115 



WRITE t 1 6, 2002 ) NW, NI2 

02901150 

L INE 

116 



IFt N SI .EO. 2 ) GO TO 20 

02901160 

L INE 

117 



N SF = MINOt NSF , N13 ) 

029011 70 

L INE 

118 



NSL = MAXOt NSL, NI3 ) 

02901180 
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L INE 

119 


WR ITE ( 16, 2002 I NW, NI3 


02901190 

!. INE 

120 

20 

CONTINUE 


U29012UU 

L INE 

121 

C 



U2901210 

L INE 

122 

C 

MORE CHECK TO SEE IF SECTION IS JEFINED 


02901220 

L INE 

123 


IF( NSL .GT. NSECTINWJ )GO TC 310 


029U1<:30 

L INE 

124 

C 



0290124C 

L INE 

125 

c 

FIND FIRST AND LAST ELEMENT NUMBERS, INI 

., 1N2 

U2901250 

L INE 

126 

c 



0290 1260 

L INE 

127 


INI * 1 


02901270 

L INE 

128 


IF( NW .EO. 1 I GO TO 30 


02901280 

L TNE 

129 

c 

FIND NUMBER OF ELEMENTS IN LOWER NUMBER 

W INGS 

02901290 

L INE 

130 


NWMl =NW- 1 


02901300 

L JNE 

131 


DO 25 J = l,Nk»Ml 


02901310 

L INE 

132 


NS = NSECTU) 


U2901320 

L INE 

133 


DO 25 1=1, NS 


02901330 

L INE 

134 

25 

INI * INl C NE II ,J) 


02901340 

L INE 

135 

C 



029U135U 

L INE 

136 

30 

CONTINUE 


02901360 

L INE 

137 


IF( N SF .EQ. 1 1 GO TO 40 


02901370 

L INE 

138 

C 

FIND NUMBER OF ELEMENTS IN LOWER NUMBER 

SECT IONS OF WING NW 

02901380 

L INE 

139 


NS = NSF - 1 


02901390 

L INE 

140 


DO 35 1 = 1, NS 


02901400 

L INE 

141 

35 

INI = INI C NE(I ,NW) 


02901410 

L INE 

142 

C 



02901420 

L INE 

143 

40 

CONTINUE 


02901430 

L INE 

144 

C 

NOW THAT WE HAVE INI, FIND LAST ELEMENI 

IN2 

02901440 

L INE 

145 

c 



02901450 

LINE 

146 


IN2 = INI C NE (NSF ,NWI - 1 


UZ901460 

L INE 

147 


NCHECK (NSF,NW» = 1 


029014 70 

L INE 

148 


IFI NSI .EO. 1 ) GO TO 45 


0290I4B0 

L INE 

149 

c 



02901490 

L INE 

150 


IN 2 = IN 2 C NEINSF Cl ,NWI 


02901500 

L INE 

151 


NCHECKINSFSI ,NW) = 1 


02901510 

L INE 

152 


IFI N SI .EQ. 2 ) GO TO 45 


02901520 

L INE 

153 


IN2 = IN2 £ NEI NSL ,NW) 


02901530 

L INE 

154 


NCHECKINSL,NWJ = 1 


02901540 

L IME 

155 

45 

CONTINUE 


0290 1 550 

L INE 

156 

C 



02901560 

L INE 

157 

C 

INI AND IN2 HAVE BEEN FOUND 


02901570 

L IN E 

158 

C 



02901580 

L INE 

159 


WR ITE I 16, M0DEF4 ) JMODE 


02901590 

L INE 

160 


WRITE! 16, 2003 1 


02901600 

L INE 

161 


WR ITEI 16, 2008 » 


02901610 

L INE 

162 

C 



02901620 

L INE 

163 

C 

SECTION TO READ MODE DATA 


02901630 

1 rKi c 


r 




L IN w 

i O 4 

u 



U t V U 1 

L INE 

165 

c 



02901650 

L INE 

166 

c 

READ MODE INPUT 


02901660 

L INE 

167 

c 

MODE CARD HAS BEEN READ 


02901670 

L INE 

168 

c 



02901680 

L INE 

169 


NFUNMX = NMX 


02901690 

L INE 

170 


CALL REAOXYI XF , YF > 


02901700 

L INE 

171 


lERR = lERF 


02901 710 

L INE 

172 


IFI lERR .NE.O) RETURN 


02901720 

L INE 

173 

c 



02901730 

L INE 

174 


DO 130 J = l, JMODE 


02901740 

L INE 

175 


READ! 15, 1006 I MODE 


0290 1 750 

L INE 

176 


WRITE! 16,1016 J MODE 


02901760 

L INE 

177 


CALL READABIA, A) 


02901 7 70 

L INE 

178 


IFI I TEST .EQ. 0 ) GO TO 110 


02901780 

L INE 

179 


DO 1J5 I = INI, 1N2 


02901790 

L INE 

180 


ETAI I ,JI = III 


02901800 



L INE 

lai 


OETAOXI I ,J> = 0.0 


02901810 

L IME 

132 

105 

CONTINUE 


02901820 

L 1\ E 

183 


GO TO 130 


029U1830 

L INE 

184 

110 

CONTINUE 


02901U40 

L INE 

185 

C 

au^P INOXP TO FIRST ELEMENT IN SECTION 

02901850 

1, INE 

186 


INDX^ = 6-MINl-l) £ 1 


02901860 

L INE 

137 


DD 120 I = INI, 1N2 


0290 18 70 

L INE 

188 

c 

NOTE XO, YO ARE COOR, OF CENTER OF 

EL EM IN UNNORMAL IZ ED 

0290 1880 

L INE 

189 

c 

STRUCTURAL REFERENCE SYSTEM 


02901890 

L INE 

190 


XX = aR*XCEN<I 1 


02901900 

L INE 

191 


YY = riALFR«‘ ( XYZ(INDXR£4) £ XYZnNOXRGSn 


02901910 

L INE 

192 


INDXR = INOXR £ 6 


02901920 

L INE 

193 

c 



0290 19J0 

L INE 

194 


CALL ZFOZI ETA(I,J», OETAOX(I,JI, XF,YF, 

A) 

02901940 

L INE 

195 

c 



02901950 

L INE 

196 

120 

CONTINUE 


0290 I960 

L INE 

197 

c 



02901970 

L INE 

198 

130 

CONTINUE 


02901980 

L INE 

199 

C 



02901990 

L INE 

200 

132 

CONTINUE 


02902000 

L INE 

201 

C 



02902010 

L INE 

202 


IPR * 1 


U29U202U 

L INE 

203 


WRITE! 16, 2 004 ) IPR 


02902030 

L INE 

204 


IFIJTYPE ,NE.O) GO TO 135 


029U2Q40 

LINE 

20 5 


WRITE! 16, 2002 ) NW, Nil 


02902050 

L INE 

206 


IF( NSI .GE. 2 > WRITE! 16 , 2002 1 NW , 

NI2 

02902060 

L INE 

207 


IF! NSI .60. 3 » WRITE! 16, 2002 » NW, 

NI3 

02902070 

L INE 

208 

135 

CONTINUE 


02902080 

L INE 

209 


WRITE! 16, 2005 I 


02902090 

L INE 

210 


WRITE! 16, 2008 > 


02902100 

L INE 

211 


J1 = 1 


02902110 

L INE 

212 


IHS * JMODE/3 


02902120 

L INE 

213 


IF! 3«IHS .NE, JMODE ) IHS = IHS £ 1 


02902130 

LINE 

214 

C 



02902140 

L INE 

215 


DO 138 IH = ItIHS 


02902150 

L INE 

216 


J2 = J1 8 2 


02902160 

LINE 

217 


IF! J2 .GT. JMODE ) J2 = JMODE 


029U217U 

L INE 

218 


INUMB = J2 - J1 E 1 


02902180 

L INE 

219 


M00EFH2) = NUMBR!INUMB» 


02902190 

L INE 

220 


MDDEF2!5) = NUMBRUNUMB) 


029U2200 

L INE 

221 


MUDEF3I3) = NUM3RIINUM0I 


02902210 

L INE 

222 


IF! IH .GE. 2 ) WRITE! 16, 2010 » 


02902220 

L INE 

223 


WRITE! 16, MDDEFl ) ! I, I=Ji,J2) 


02902230 

L INE 

224 


WR ITE! 16, M00EF2 J 


02902240 

L INE 

225 


WRITE! 16, M0DEF3 ) !I , ( ET A 11 , JJ , DET ADX ( I , J » , J= J 1 , J 2 J , I=INl, IN2J 02902250 

L INE 

226 


J 1 = J 1 £ 3 


02902260 

L iNE 

227 

138 

CONTINUE 


029022 70 

L INE 

228 

C 



02902280 

L INE 

229 


INI = IN2 £ 1 


02902290 

L INE 

230 

C 



02902300 

L INE 

231 

140 

CONTINUE 


0290231U 

L INE 

232 


IFIJTYPE ,NE.O> CO TO 200 


02902320 

L INE 

233 

C 



02902330 

L INE 

234 

C 

CHECK TO SEE IF ALL SECTIONS HAVE BEEN READ AND ACCOUNTED 

FOR0290Z340 

L INE 

235 

C 



02902J50 

L INE 

236 


DO 150 J=1,NWING 


02902360 

L INE 

237 


N S = NSEC T! J) 


029023 70 

L INE 

238 


DO 150 1=1, NS 


02902380 

L IN a 

239 


IF! NCHECK!I,J) .EQ. 0 ) GO TO 10 


02902390 

L INE 

240 

150 

CONTI NUE 


02902400 

L INE 

241 

C 



0290241U 

L INE 

242 

C 



02902420 
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original pagk is 
OP POOR.QUALOT 


LINE 

2A3 

C 





029U2430 

L INE 


C 

READ NEXT CARD, CHECK FUR 

RIGID 

MODE 

INPUT 

U29J2440 

LINE 

2^5 

200 

READ! 15, 1000 » LAB, JRI6I0 




U2VJ2450 

L INE 

2^6 

21c 

CONTINUE 




02VJ2460 

L INE 

2A7 


IF! LAB .EO. LFNO IRETURN 




029024/0 

L INE 

2A8 


IF( LAB .N£. LRIG 1 GO TO 340 • 

« • 



U29J2480 

L INE 

2<i9 

215 

CONTINUE 




U2VJ2490 

L INE 

2bO 

C 

SECTION FOR RIGID MODES 




02902500 

L INF 

251 

C 

CHECK THAT RIGID MODE NUMBER IS 

IN ORDER. 

02902510 

L INE 

25? 


JMODE = JHOOE S 1 




02902520 

L INE 

253 


IF( JRIGID ,NE. JMODE I GO 

TO 350 


02902530 

L INE 

25^ 

C 

‘ ZERO OUT all ETA AND DETADX FOP 

THAT 

MODE 

02902540 

L IN E 

25 5 


DO 220 1=1, NET 




02902550 

LINE 

256 


eta ( I , JMODE ) = 0.0 




02902560 

L INE 

257 


DETAOXI 1 , JMODE I =0.0 




029025/0 

L INE 

258 

220 

CONTINUE 




02902580 

L INE 

259 


WRITE! 16, 2006 ) 




U2902590 

L INE 

260 


WRITE! 16, 2005 ) 




02902600 

L INE 

261 


WR ITE ! 16, 2008 ) 




02902610 

L INE 

262 


WRITE! 16, 200 7 ) 




02902620 

L INE 

263 


MDDEFU2) = NUMBR!1» 




02902630 

L INE 

264 


WRITE! 16, MQDEFl J JMODE 




02902640 

L INE 

265 


M0DEF2! 5) = NUMBRIl) 




02902650 

L INE 

266 


M0DEF3(3) = NUMBRd) 




02902660 

L IN E 

267 


WR IT5( 16, MDDEF2 I 




029026/0 

L INE 

268 

230 

CONTINUE 




02902680 

LINE 

269 


READ! 15, 1001 J LAB, lEL, ETA ( I EL, J MODEI 

, DET ADX! lEL, JMODEI 

U29J2690 

L INE 

270 


IF! LAB .NE. LBLANK ) GO TO 240 



02902700 

L INE 

271 


WRITE! 16, MUDEF3 ) lEL, E TA ! 1 E L, JMODE I , 

DETADXI I6L, JMODE J 

02902 no 

L INE 

272 


GO T3 230 




02902 /20 

L INE 

273 

240 

CONTINUE 




02902730 

L INE 

274 


JRIGID = lEL / 100 




02902/40 

L INE 

275 


GO TO 210 




02902/50 

L INE 

276 

C 





02902760 

L INE 

277 

c 





029027/0 

L INE 

278 

c 

ERROR SECTION 




02902780 

L INE 

279 

c 




i 

02902790 

L INE 

280 

300 

CONTINUE 




02902800 

L INE 

281 

C 

MDWI INPUT CARD NOT FOUND 




029U2810 

L INE 

282 


WR ITE ! 16, 3000 ) 




02902820 

L INE 

283 


WRITE! 16, 3001 ) 




02902830 

L INE 

284 


ERROR = .TRUE. 




029U2840 

L IN E 

285 


RETURN 




02902850 

L INE 

28 6 

310 

CONTINUE 




02902860 

L INE 

2'17 

C 

SECTION IS NOT DEFINED 




029028 /O 

L INE 

28 8 


WRITE! 16, 3000 » 




02902880 

L INE 

289 


WRITE! 1 6, 3 002 > 




02902890 

L INE 

290 


WR ITE! 16, 2002 ) NW, Nil 




02902900 

L INE 

291 


IF! NSI .GE, 2 ) WRITE! 16, 2002 I 

NW, NI2 

02902910 

L INE 

292 


IF! NSI .EQ. 3 I WRITE! 16, 2002 I 

NW, NI3 

02902920 

L INE 

293 


ERROR = .TRUE. 




02902930 

L INE 

294 


RETURN 




0290 29A0 

L INE 

295 

320 

CON TIN UE 




02902950 

L INE 

296 

C 

SECTIONS ARE NOT ADJACENT 




02902960 

L INE 

29 7 


WRITE! 16, 3000 I 




029029/0 

L INE 

298 


WR ITE ! 16, 3003 I NI 1 , NI2 




U290298U 

L INE 

299 


ERROR = .TRUE. 




029U2990 

L INE 

300 


RETURN 




02903000 

L INE 

301 

330 

CONTINUE 




02903010 

L INE 

30 2 

C 

MODES NOT PRESENT FOR ALL 

SECT I ONS 


02903020 

L INE 

303 


WR irei 16, 3000 i 




029O3030 

L INE 

304 


WRITE! 16, 3004 » 




029U3U40 
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L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
L INE 
LINE 
L INE 
L INE 
L INE 
L IN E 
L INE 
L INE 
L INE 
L INB 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
I INE 
L INE 
L INE 
L INE 


•gEPBODUGIBlUTY OPTUS 

OBIGINM PAGS JS POOR 


305 

306 

307 

308 
30 9 

310 

311 

312 

313 

314 

315 

316 

317 
31B 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 
^40 
34 1 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 


3004 FORMAT! 50H MCDAL DATA NUT PRESENT FOR THE FOLLOWING SECTIQ'JS ) 

DO 332 J = 1,NWIN3 
NS = NSECTIJI 
DO 33 2 I = If NS 

IF( NCHECKdfJ) .EO. 0 ) WRITE! I6« 2302 ) Jf 1 
332 CONTINUE 

ERROR = .TRUE. 

RETURN 

340 CONTINUE 

WR ITE ( 16, 3000 I 

WRITE! 16, 3005 J LAB 

ERROR = .TRUE. 

RETURN 

*350 CONTINUE 

WRITE! 16, 3000 I 

WRITE! 16, 3006 I JMODE, JRIGID 

ERROR = . TR UE. 

RE*TURN 

400 FORMAT ! IHO// SOX, 114, 25H MODE FUNCTION EQUATIONS / 

1 4X, 8HEOU4TION ,2X,4X, 4HWING, 2X,4X, 4HM0DE ,4X , 20X , 

2 12HC0EFFICIENTS /36X, 8HC0NSTANT , 2X, 8X, IHX, 5X, 8X,iHY, 

4 6X, 2HXY,6X , 

3 3X,8HX SQUARE , 3X, 3X,8HY SQUARE I 
FORMAT! 6X, 312, 12X, 8E6.6 ) 

! IHO, 8X,1I2 ,4X,4X,LI2 , 4X,4X, 12 ,2X, (6 E14-4»l 
A4, 2X, 412 ) 

A4, 2X, 14, 14X, 2E12.0 I 
{ 20A4 I 
IX, 20A4 ) 

LHl// 24X,16HINPUT MODAL DATA // 1 
20X, 4HWING, 12, lOH SECTION, 12 » 

U 2CX»10HECH0 CHECK » 

II, 19X, 20HGENERATED MODAL DATA U » 
//20X,16HAER0DYNAMIC GRID/) 

20X, 21HPIGI0 BODY MODE INPUT ) 

55HONLY ELEMENTS WITH A NON-ZERU MODAL VALUE MUST 


405 

410 FORMAT 

1000 FORMAT! 

1001 FORMAT! 

1006 FORMAT 
1016 FORMAT! 

2001 FORMAT! 

2002 FORMAT! 

2003 FORMAT! 

2004 FORMAT! 

20C5 FORMAT! 

2006 FORMA T( IHl, /// 

2007 FORMAT! // 20X, 
IBE INPUT ) 

2008 FORMAT! 

ITEM OR / 

2009 FORMA T ! // 
llShOEFlNEO 

2010 FORMAT! IHl 


20X, 3DHSTRUCTUKAL REFERENCE 
20X, 35HROTATEO STRUCTURAL REFERENCE SYSTEM / I 
20X, 44HM0DAL DATA INPUT IS GENERATED BY POLYNOMIAL 
BY USER ) 

) 


3000 FORMAT! /// IX, 120!H*) // 29H ERROR IN READING MODE INPUT. / ) 

3001 FORMAT! 46H 'MOWING' DATA CARD IS EXPECTED BUI NOT FOUND. / 

1 51H THIS CARD MUST PRECEDE EACH MODE DATA INPUT GROUP. / 

21 OSH THIS CARD MUST FOLLOW THE ' MUOE • DATA CARD UR THE LAST DATA 
3ARD OF THE PRECEDING MODE DATA INPUT GROUP. / ) 

3002 F0RMATI76H 'MOWING' DATA CARD SPECIFIES INPUT FOR A SECTION THAI 

IAS NOT BEEN DEFINED. / 1 9H SECTIONS SPECIFIED ) 

2003 FORMAT! 64H 'MOWING' DATA CARD SPECIFIES TWO SECTIONS THAT ARfc 
lADJACENT. / 8H SECTION, 13.12H AND SECTION, 13 » 


Q29U3050 
U29U30eU 
U29U3U7U 
02903080 
02903090 
02903100 
02903110 
02903120 
02903130 
02903140 
029U3150 
02903160 
02903170 
029031B0 
02903190 
02903200 
029U3210 
02903220 
02903230 
02903240 
029413 250 
02903260 
5X, 029032/0 
02903280 
02903290 
02903300 
02903310 
02903320 
U,i903330 
02903340 
02903350 
02903360 
029033/0 
02903380 
02903390 
02903400 
02903410 
029034^0 
02903430 
SYS029U3440 
02903450 
, 02903460 
029034/0 
02903480 
02903490 
) 02903500 

02903510 
02903520 
CU2903530 
02903540 
H02903550 
02903560 
NUT029035 /O 
02903580 


3005 FORMAT! / 90H A LABEL DATA CARD FOLLOWING FLEXABLE MOUE DATA INPU02903590 

IT IS EITHER CUT OF ORDER DR INCORRECT. / 6BH THE FIRST FOUR CHAR AC 0290 abCO 
2TEkS JF THE CARO FULLUW WITHIN PARENTHESES. !, A4, IH) ) 0290 3610 

3006 FORMAT! / 35H RIDIO MODE NUMBER IS NOT IN ORDER. / 24H MODE NUM BEU290362U 

IR EXPECTED IS, 14 / 21H MODE NUMBER INPUT IS, 14 ) 02903630 

C 02903640 

end 02903650 
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CtSPLAY„.*FILfe 


DECK 30 


L INfe 

1 



SUBR3UTINE REAOABIZ, A> 

O3D0OU1O 

1 INE 

2 



HTE3ER HEADERI20) 

D3U0D020 

L INE 

3 



DIMENSION Zm 

,Ailt 

03000030 

U INE 

4 



COMMON / ZFDZIO 

/ 15, 16 

03000040 

L INE 

5 



COMMON /Z<=UNNY/ N ,I£ RF ,81 , 82 , B3,NFUNMX 

030JU050 

L INE 

6 



COMMON /XYSCAL 

/ XX, YY, XO, YC, BREF, ZZZ, ITEST 

0300U060 

L INE 

7 

C 




03000070 

L INE 

8 

C 




03000080 

L INE 

9 

c 

INITULIZATION ENTRY POINT ICOEFF I C I ENT S » . 

030000S0 

L INE 

10 



READ! 15, 11 1 

HEADER 

03000100 

L INE 

11 



WR I TE ( 16, 11 » 

HEADER 

03000 no 

L INE 

12 



REAOl 15, 13 » 

< ZUt , I=l ,N I 

03000120 

L INE 

13 



WRITE! 16, 12 ) 

(Zm , I =1 ,Ni 

03000130 

L INE 

14 



I TEST = 0 


03U0Q140 

L INE 

15 



111 » zm 


030U0150 

L INE 

16 



DO 5 1=2, N 


03000160 

L INE 

17 



IF ( zm .NE. 

III > GO TO 7 

U300U170 

L INE 

18 


5 

CONTINUE 


03000180 

LINE 

19 



ITEST = 1 


03000190 

L INE 

20 


7 

CONTINUE 


03000200 

L INE 

21. 



READ! 15, 11 I 

HEADER 

03000210 

L INE 

22 



WR ITE ( 16, 111 

HEADER 

03000220 

LINE 

23 



READ! 15, 13 ) 

( A (I) , 1=1 ,N ) 

03000230 

L INE 

24 



WR I TE ( 16, 12 ) 

!A (I ) , 1=1 ,N) 

03000240 

L INE 

25 



READ! 15, 11 I 

HEADER 

03000250 

L INE 

26 



WRITE! 16, 11 > 

HEADER 

03000260 

L INE 

27 



READ! 15, 13 I 

Bl, B2, B3 

03000270 

L INE 

28 



WR ITE 1 16, 12 J 

31 ,B2,83 

03000280 

LINE 

29 



RETURN 


03UOCJ290 

L INE 

30 


11 

FORMAT! 20A4I 

03000300 

L INE 

31 


12 

FORMAT! 1P5E15.7) 

030UD310 

L INE 

32 


13 

FORMAT! 5E15.7 

) 

03000320 

L INE 

33 



END 


03000330 
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OF POOR . ^ 


DISPLAY.. 

.FILE 

DECK 31 

. * 


LINE 

I 



SUBROUTINE REAOXV(X,Y» 

03100010 

L INE 

2 



INTEGER HEADER 1201 

03100020 

LINE 

3 



OINENSION XdIt Y(ll 

0310U030 

L INE 

A 



COMMON / ZFOZIO / IS. 16 

03100090 

L INE 

5 



COMMON /ZFUNNY/ N, 1 ERF .Bl .B2 ,33 ♦ NFUNMX 

03100050 

L INE 

6 

C 



C310C060 

L INE 

7 

C 

INITIALIZATION ENTRY POINT IA8SCISSASI. 

03100070 

L INE 

a 

C 

USAGE CALL READ NXY 

O310UOtiO 

L INE 

9 



REAOI 15, 10 t N 

031000SU 

LINE 

10 



WH ITE( 16, 10 ) N 

03100100 

L INE 

11 



REAOI 15. 11 1 HEADER 

03100110 

L INE 

12 



WRITE! 16, ll I HEADER 

03100120 

L INE 

13 



I ERF =0 

03100130 

L INE 

19 



IF IN.GT. NFUNMX) IERF*680 

03100190 

L INE 

15 



IF IN.GT. NFUNMXI RETURN 

03100150 

LINE 

16 



READ! 15,13) ( XI!) , I ,N ) 

03100160 

L INE 

17 



WRITE! 16, 12 ) 1X!I), lrl,N) 

03100170 

LINE 

IB 



READ! 15, 11 i HEADER 

03100180 

L INE 

19 



WRITE! 16, 11 ) HEADER 

03100190 

L INE 

20 



READ! 15, 13 ) ( Y(I) , I«l,N 1 

03100200 

L INE 

21 



WRITE! 16, 12 ) !Y!I), I»J,.N) 

0310021U 

L INE 

22 



RETURN 

03100220 

L INE 

23 


10 

FORMAT! 5X, 3HN = ,I3I 

03 100 2 30 

L INE 

29 


11 

FORMAT! 2CA9) 

U3100290 

L INE 

25 


12 

FORMAT! 1P5E15.7) 

03100250 

L INE 

26 


13 

FORMAT! 5E15. r 1 

03100260 

L INE 

27 



END 

03100270 
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DISPLAV ...FILE 


DECK 32 


«§g» 


L INE 

1 


SUBROUTINE RSTART ( MACH, NET, N»kEO, FREQ, REFL6N, IrtTE, 18, 115, 

03200010 

L INE 

2 


1 16, FREQR , XYZ, AREA ) 

032U0U20 

LINE 

3 


LOGICAL ERROR 

U320U030 

L INE 

4 


REAL MACH, MACHR 

03200040 

L IN6 

5 


DIMFMSION FREOm, FREQRUI, AREAIU, XYZIII 

03200050 

L INE 

6 


COMMON / NEXICS / I FLUSH 

03200060 

L INE 

7 


ERROR * .FALSE. 

032000 10 

L INE 

8 


IS = 18 

03200080 

L INE 

9 

10 

CONTINUE 

03200090 

L INE 

10 


rewind is 

0320U1C0 

L INE 

11 


READ! IS) MACHR, NE TR , RRFL, IWTER, NFREQR, ( FREQR( H , 1= 1, NFR EUR » 

03200110 

L INE 

12 


IF( MACHR .NE. MACH I GO TO 90 

03 200 120 

L IN E 

13 


IF( NETR .NE. NET 1 GO TO 90 

03200130 

L INE 

14 


IF( NFREQR .NE. NFREO I GO TC 90 

03200140 

L INF 

15 


IF{ REFLEN ,NE. RRFL J GO 10 90 

03200150 

L INE 

16 


IF( IWTE .NE. 0 .AND. IWTER .EG. 3 » GO TO 90 

03200160 

L INE 

17 


DO 15 I=1,NFREQ 

03200170 

L INE 

18 


IF( FREOR(l) .NE. FREOdl I GO TO 90 

03200180 

L INF 

19 

15 

CONTINUE 

03200190 

L INE 

20 


1F( IWTE .EQ. 0 i GO TO 30 

03200200 

L INE 

21 


IFI I S .EO. 115 » GO TO 30 

03200210 

L INE 

22 


IS = 115 

03200220 

L INE 

23 


GO TD 10 

03200230 

L INE 

24 

30 

CONTINUE 

03200240 

L INE 

25 


IF( ERROR 1 GO TD 99 

03200250 

L INE 

26 

C 

RESTART TAPEISI HAVE BEEN READ AND FOUND TO BE CORRECT 

03200260 

L INE 

27 

C 

FIND AREA 

03200270 

L INE 

28 


INDXR = 1 

03200280 

L INE 

29 


DO 5 0 IRC = 1, NET 

03200290 

L INE 

30 


OSX = 0.5* ( XYZd N0XRC5J-XYZ(INDXRC4n 

03200300 

L IN e 

3 1 


AR EA( IRC 1 =D SX* 1 XYZd ND XR C3 ) - XYZ d NDX Rl fiXYZl INDXRL2)-XYZ I INUXRfl 1 » 103200310 

L INE 

32 


INDXR = INDXR C 6 

03200320 

L INE 

33 

50 

CONTINUE 

03200330 

L INE 

34 


RETURN 

03200340 

L INE 

35 

90 

CONTINUE 

03200350 

L INE 

36 

C 

ERROR IN RESTART TAPE 

U320U360 

L INE 

37 


ERROR = .TRUE. 

032003 /O 

L INE 

38 


WRITE! 16, 2000 ) IS 

03200380 

L IN E 

39 


WRITE! 16, 2001 I 

03200390 

L INE 

40 


WRITE! 16, 2002 ) MACH, MACHR, NET, NETR, REFLEN, RRFL, IWTE, 

03200400 

L INE 

41 


1 IWTER, NFREQ, NFREQR, ( 1, FREQdl, F REQR! II , 1= 1, NFREO ) 

03200410 

L IN E 

42 


IF! IWTE .EO. 0 I GO TO 99 

03200420 

L INE 

43 


IF! IS .EO. 115 ) GO TO 99 

03200430 

L INE 

44 


IS = 115 

03200440 

L INE 

45 


GO TD 10 

03200450 

L INE 

46 

99 

CONTINUE 

03200460 

L INE 

47 


IFLUSH = 1 

U32U0470 

L INE 

48 


RETURN 

U32UU480 

L INE 

49 

2000 

FORMATUHl/ 60!2H *) //38H ERROR IN READING RESTART TAPE ON UNIT 

03200490 

L INE 

50 


1 14 > 

03200500 

L IN E 

5 1 

20 01 

FORMAT! /ASH RESTART TAPE DID NOT CORRESPOND TO CURRENT RUN. 

03200510 

L INE 

52 


1 67H FOLLOWING IS A COMPARISON OF THE CURRENT KJ N AND THE kESTARI 

03200520 

L INE 

53 


2TAPE. /// 41X, IIHCURRENT RUN, 9X, 12HRESTART TAPE ) 

03200530 

1. INE 

54 

2002 

FORMAT! / IIX, 24HMACH NUMBER , E17.5. E21.5 

03200540 

L INE 

55 


1 / IIX, 24HTOTAL NUMBER OF ELEMENTS, 117, 121 

03200550 

L INE 

56 


2 / IIX, 24HREFEPENCE LENGTH , E17.5, E21.5 

03200560 


- 6 . 76 - 

j£;fr.r..-i-,„ifi.T-^iB^^ 


OSleiNAL PAGE IS 
OP POOR QUALmi 


LINE 

57 

3 

/ 

1 IX, 

2 W WAKE EFFECT CODE , 

117, 

121 


L TNE 

58 

4 

/ 

IIX, 

24HNU.M*3ER DF FREUUENCIES , 

r 17, 

121 


L INE 

59 

5 

/ 

( 

IIX, L0HFK6QU£NCV( , 12, IHJ, lU, 

ei7.5. 

E2U5 » 

> 

L INE 

60 

END 
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03200&70 

032006^0 

U32JUii90 

U320l>t0t) 


OMGINAL PAGE 
OP POOR QUAU'i'y 


CISPLAY .. 

.FILE 

DECK 33 



L INE 

1 


SUBROUTINE RTOK TR , TI , YCR, 2CR, ZPO, ZLO » 


033J0010 

L INE 

2 

C 



U3i0U020 

LINE 

3 

C 

RTOI TRANSFROMS VCR AND ZCR FROM THE RECEIVING SYSTEM 

1 J THE 

03300U30 

L INE 

4 

C 

INFTUfcNCING SYSTEM, YCR, ZCR ARE F I RT PUT IN REFERENC 

SYSTEM 

U33JUU40 

t INE 

5 

C 

8Y PRE.MULTIPLI NG PY TR. THIS IS Y,Z WHICH IS PUT IN INFLLIENC- 

03300050 

L INE 

6 

C 

ING SYSTEM YC , ZC BY PREKULT. BY THE TRANSPOSE OF TI 


03300C60 

L INE 

7 

c 



U33UOOZO 

L INE 

8 


DIMEN SION TR(1) , TI (U 


O330OOEO 

L INE 

9 


C0MM3N / RRLL / TVW(4) , YRO , YLO , ZR, ZRZR, ZL, ZLZL 


U33J0U90 

LINE 

10 


Y = TR( U*YCR C TR OI^ZCR 


U330010U 

L INE 

XI 


Z = TR ( 2)*YCR C TR (4I*ZCR 


03300110 

L INE 

12 


YRO = TI m*Y C TI (2)*Z 


03300120 

L INE 

13 


ZR 0 - TI ( 3»*Y C TI (4)*Z 


03300130 

L INE 

14 


YLO * -TI m«Y C TI (2) «Z 


03 300140 

L INE 

15 


ZL 0 = TI ( 31* Y - TI (4)*Z 


03300150 

L INE 

16 


TVWm = TRI3)*Tim L TR{4) '*‘TI (2» 


03300160 

L INE 

17 


TVW(2i = TR(3I*TI(3> C TR(4)*TI(4) 


03300170 

L INE 

18 


TVW(3» = -TR(3)*TI(1) 6 TR(4)*TII2> 


03300180 

L INE 

19 


TVWI4) = TROI^Tim - TR(4»*TU4I 


U3300190 

L INE 

2f 


RETURN 


03300200 

L INE 

21 


END 


03300210 


ENC PEAD 


ND CF JOB. 

33.2 SEC. USED .010 HRS. CHARGED 49.952 HRS. REMAINING 
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BEPRODUtiUJlbh’V t|lK Wb 

ORIGINAL PAde IS rooS 


DISPLAY .. 

.FILE 

DECK 34 


L INE 

1 



SUBROUTINE SOLVE I N , NO I M ,A ,B ,I PI 

03400010 

L INE 

2 

C 



03400020 

L INE 

3 

C 


SUBROUTINE SOLVE 

0340U030 

L INE 

4 

c 



03400040 

L INE 

5 

c 


PURPO SE 

03400050 

L INE 

6 

c 


SOLUTION OF THE LINEAR SYSTEM OP EJUAIIONS C'S'X = B. 

03400060 

L INE 

7 

c 



034UUU70 

L INE 

8 

c 


USAGE 

034U00BU 

L INE 

9 

c 


CALL SOLVE(N.NOIM,A,B,IPI 

U34O0OSO 

L INE 

10 

c 



03400100 

L INE 

11 

c 


DESCRIPTION OF PARAMETERS 

03400110 

LINE 

12 

c 


[4 - ORDER OF THE MATRIX A 

03400120 

L INE 

13 

c 


NDIM- FIRST DIMENSION OF A DECLARED IN CALLING PROGRAM. IF A 

IS03400130 

L INE 


c 


SINGLY SUBSCRIPTED IN CALLING PROGRAM, SfcT NDIM=N. 

03400140 

L INE 

15 

c 


A -CONTAINS THE TRIANGULAR FACTORS OF THE MATRIX C (AS 

03400150 

L IN E 

16 

c 


DETcRMItNED BY SUBROUTINE 'DECQMM. . 

034UU160 

L INE 

17 

c 


B -ON INPUT, THE RH S VECTOR, ON OUTPUT,; THE SOLJIIUN VECTOR 

. 034U01/O 

L INE 

18 

c 


P -VECTOR OF DIMENSION N CONTAINING ROW INTERCHANGE 

03400180 

L INE 

19 

c 


INFORMATION (AS DETERMINED BY SUBROUTINE ' DECOM* ) . 

03400190 

L INE 

20 

c 



03400200 

L INE 

21 

c 


REMARKS 

U34U021U 

L INE 

22 

c 


•SOLVE* MUST BE USED I N C ON JUNC TI ON WITH SUBROUTINE 'DcCDM'. 

U34U0220 

LINE 

23 

c 



0340C230 

L INE 

24 

c 


SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED. 

03400240 

L INE 

25 

c 


NONE 

03400250 

L INE 

26 

c 



034UU260 

LINE 

27 

c 


METHOD 

03400270 

L INE 

28 

c 


BACK SUBSTITUTION BASED ON THE FACTORED FORM OF THE CQEFF IC IENTU3400260 

L INE 

29 

c 


MATRIX. SEE ALGORITHM 423, 'COLLECTED ALGORITHMS FROM CACM*, 

03400290 

L INE 

30 

c 


BY CLEVE MOLER. 

03400300 

L INE 

31 

c 



U3400310 

L INE 

32 



DIMENSION A (NDIM.LI ,B(1» ,IP(U 

034U0320 

L INE 

33 



IF (N .EQ. 1) GO TO 9 

03400330 

L INE 

34 



NM 1 = N- 1 

03400340 

L INE 

35 



00 7 K = l,NMl 

03400350 

L INE 

36 



KP 1 = KSl 

U340U360 

LINE 

37 



M = IP(K) 

03400370 

L INE 

38 



T = B(M) 

03400380 

L INE 

39 



B(MI = B(K) 

03400390 

L INE 

40 



B(K ) = T 

034004CO 

L INE 

41 



DO 7 I = KP1,N 

03400410 

L INE 

42 


7 

8(1) = B(I) C A(I ,K»*T 

03400420 

L INE 

43 



DO B KB = l,NMl 

03400430 

L INE 

44 



KM l = N - KB 

03400440 

L INE 

45 



K = KMl £ 1 

03400450 

L INE 

46 



B(K ) = B (K) /A(K,KJ 

0340U460 

LINE 

47 



T = -B(K) 

034004/0 

L INE 

48 



DO 8 I - 1,KM1 

03400480 

L INE 

49 


8 

Din = B(II £ AH ,K»*T 

03400A90 

L INE 

50 


9 

B( 1) = Bin/Ad,!) 

034U0500 

LINE 

51 



RETURN 

U340U51U 

L INE 

52 



END 

U340U52U 
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DISPLAY.. 

.FILE 

DECK 35 



L INE 

1 


SUBROUTINE SONS! NWI NS , NSECT. CQRNX, CORNY, CORN!, ISONS I 


03500010 

L INE 

2 

C 



0350U020 

L INE 

3 

C 

SUBROUTINE SONS DETERMINES BOOLEAN MATRIX ISONS 


03500030 

L INE 

A 

C 

IS0NS(Ki»K2I = 1 IF SECTION K2 HAS INFLUENCE ON REC. SECT 

. K1U35U00'^0 

L INE 

5 

C 

=0 IF K2 UOES NOT INFLUENCE K1 


03500050 

L INE 

6 

c 

K1 IS RECEVING SECTION NUMBER, K2 IS I NFLU ENC I NG S hCT ION 

NUM 

.03500060 

L INE 

7 

c 



035000)0 

L INE 

e 


DIMENSION NSECTdJ, CORNX ( 8 ,4 » ,CORNY (3 ,4 1 , CORNZ ( 8, 4 » , ISUNSI 12 

, 12)035UUUB0 

L INE 

9 

c 

LOOP ON RECEIVING SECTIONS ( DO 3J AND DO 25 i 


03500090 

L INE 

10 


K1 = 0 


U350010U 

L INE 

11 

c 



03500110 

L INE 

12 


DO 30 J = 1,NWING 


03500120 

L INE 

13 


NSl = NSECT(J) 


03500130 

L INE 

14 


DO 25 1=1, NSl 


03500140 

LINE 

15 

c 



03 500150 

L INE 

16 


K1 = Kl C 1 


03500160 

L INE 

17 


JCNl =2*1-2 


03500170 

L INE 

16 

c 

LOOP ON SECTIONS WHICH MAY HAVE INFLUENCE < DO 20 AND DO 15 ) 

035001BO 

L INE 

19 


K2 = 0 


03500190 

L INE 

20 

c 

. 


03 50 02 CO 

L INE 

21 


00 20 JJ = 1,NWING 


03500210 

L INE 

22 


NS2 = NSECT(JJ) 


03500220 

L INE 

23 


00 15 II=1,NS2 


035U0230 

L INE 

24 

r 



0350U24U 

L INE 

25 


K2 = K2 C 1 


03500250 

L INE 

26 


IS0NS(K1,K2» = 1 


03500260 

L INE 

27 

c 

A SECTION ALWAYS INFLUENCES ITSELF AND ADJACENT SECTIONS 


035002)0 

L INE 

28 


IFI J .EQ. JJ .AND. lABSII-in ,LE. 11 GO TO 15 


03500280 

L INE 

29 


JCN2 = 2*11 - 1 


03500290 

L INE 

30 

c 

LOOP ON BOTTOM CORNER POINTS OF RECEIVING SECTION (PTS 2, 

4 ) 

035003CO 

L INE 

31 

c 

IF LOOP (DO 101 IS COMPLETED, SECTION DOES NOT INFLUENCE 


U350U310 

L INE 

32 

c 



03500320 

L INE 

33 


DO 10 12 = 2,4,2 


03500330 

L IN E 

34 

c 



03500340 

L INE 

35 


INDl = JCNl £ 12 


03500350 

L INE 

36 


XC = C0RNX(IND1,J1 


03500360 

L INE 

37 


YC = CDRNYUNDl , J) 


035003 )0 

L INE 

38 


ZC = COR NZ( I NDl , J) 


03500380 

L INE 

39 

c 

LOOK AT TOP CORNER PTS. OF INFLUENCING SECTION (PTS 1 AND 

3) 

03500390 

L INE 

40 


INDl = JCN2 e 2 


U35004CO 

L INE 

41 


XI = CORNX( JCN2, JJ) 


03500410 

L INE 

42 


X3 = CORNXI INOl.JJ) 


03500420 

L INE 

43 


IF( XC .LT. XI .AND. XC .LT. X3 » GO TO 10 


03500430 

L INE 

44 


Y1 = CORNY( JCN2.JJ) 


U350U440 

L INE 

45 


Y3 = CORNY( INDl , JJ ) 


03500450 

L INE' 

46 


Z 1 = CDRNZI JCN2, JJ) 


03500460 

L INE 

47 


Z3 = CGRNZ( I NDl,JJ) 


035004 ?0 

L INE 

48 


YCYl = YC - Y1 


U35U0480 

L INE 

49 


Y3YC = Y3 - YC 


U350U490 

L INE 

50 


IFI Yl ,EQ. Y3 1 GO TO 8 


U35005CO 

L INE 

51 


IFI YCV1*Y3YC .LE. 0.0 ) GO TO 8 


03500510 

L INE 

52 

c 

YC IS BETWEEN Yl AND Y3 , CHECK INTERSECTION 


03500520 

LINE 

53 


A = YCYI/IY1-Y3I 


03 500530 

L INE 

54 


X = XI - A* 1X3- XI) 


03500540 

L INE 

55 


Z = Z1 - A*(Z3-ZU 


035U0550 

L INE 

56 


R=XC-XCZ-ZC 


03 5UO56O 



-6.80- 







L INE 

57 

C 


IP R GT Of SECTION HAS INFLUENCE SO BRANCH OUT 

OF 

DO 

10 

LOOP 

U3 50 0 5 70 

L INE 

58 



IF( R .GT. 0.0 > GO TO 15 





U350058U 

L INE 

5S 



GO TO 10 





03500590 

L INE 

60 


8 

CONTINUE 





035006G0 

L INE 

61 

c 


YC IS OUTSIDE OF VI , Y3 CHECK BOTH POINTS 





03500610 

L INE 

62 

c 







03500620 

L INE 

63 



ZHI = XC - XI 





03500630 

L INE 

b*, 



ETA = YC - Y1 





03500640 

L INE 

65 



10 » ZC - Z1 





03500650 

L INE 

66 



T = SORT! ETA*ETA & ZQ*Z0 ) 





035UU660 

L INE 

67 



R = ZHI - T 





03500670 

L INE 

68 

c 


IF R GT 0, SECTION h'aS INFLUENCE SO BRANCH OUI 

OF 

DO 

10 

LUUP 

U35006E0 

L INE 

69 



IF! R .GT. 0.0 J GO TO 15 





03500690 

L INE 

70 

c 







03500700 

L INE 

71 



ZHI » XC - X3 





03500710 

L INE 

72 



ETA » VC - Y3 





03500720 

L INE 

73 



ZO = ZC - Z3 





03500730 

L INE 

74 



T = S4RTI F,TA*ETA S ZO*ZO » 





03500740 

L INE 

75 



R = ZHI - T 





03500750 

L IN E 

76 

c 


IF R GT Of SECTION HAS INFLUENCE SO BRANCH O'JT 

OF 

00 

10 

LOOP 

035U0760 

L INE 

77 



IF( R .GT. 0.0 i GO TO 15 





03500770 

L INE 

78 

c 







03500780 

L INE 

79 


10 

CONTINUE 





03500790 

L INE 

80 

c 


W= DID NOT BRANCH OUT OF DO 10 LOOP 





03500800 

LINE 

81 

c 


SECTION K2 DOES NOT INFLUENCE SECTION K1 





0350U810 

L INE 

82 



IS0NSIKlfK2l = 0 





03500820 

LINE 

83 

c 







03500830 

L INE 

84 

c 


END LOOP ON INFLUENCING SECTION (15i AND HING 

{ 20 ) 



03500840 

L INE 

85 


15 

CONTINUE 





03500850 

L INE 

86 


20 

CONTINUE 





03 500860 

L INE 

87 

c 







03500870 

L INE 

88 

c 


END LOOP ON RECEIVING SECTION (25) AND WING (30) 




03500880 

L INE 

89 


25 

continue 





03500890 

L INE 

90 


30 

CONTINUE 





035009C0 

L INE 

91 

c 







03500910 

L INE 

92 



RETURN 





03500920 

L INE 

93 



END 





03500930 
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CISPLAY ...FILE 


DECK 36 


L INE 

1 


SUBROUTINE SONSPK ISONS, NWING, NSECT, MACH, 16 5 

03600U10 

L INE 

2 

C 

SONSPT PRINTS SECTION INFLUENCE TABLE 

03600020 

LINE 

3 


REAL MACH 

03600030 

L INE 

A 


DIMENSION IFTU 9), IFT21 9> , IFI15) 

03600040 

L INE 

5 


DIMENSION I SONS! 12 ,12) , NSbCTIl), IWI15), ISI15) 

03600050 

L INE 

6 

C 


03600060 

L INE 

7 


DATA IFTl / 4H(11H, 4H REC, 4HEIVI, 4HNG ,, IH , 4H(6H , 

03600070 

L INE 

8 


1 4H WIN, 4HG,12, 2H)) / 

03600060 

L INE 

9 


DATA IF / 1H1,1H2,1H3,H4,1H5,1H6,1H7,IH8,1H9 ,2H10,2H1 1, 2H12 

, 2H13, 03600090 

L INE 

10 


1 2H14, 2H15 / 

03600100 

L INE 

11 


DATA IFT2 / 4H(11H, 4H SEC, 4HTI0N, 4HS ,, IH , 4H( 6H , 

03600110 

L INE 

12 


1 4H SEC, 4HT,I2, 2H)I / 

U360U12U 

L INE 

13 

c 


03600130 

L INE 

14 


WRITE! 16, 1001 ) MACH 

03600140 

L INE 

15 


WRITE! 16, 1002 ) 

0360U15Q 

L INE 

16 


K = 0 

03600160 

L INE 

17 


DO 10 J = l, NWING 

03 600 170 

L INE 

16 


NS* N SEC T!Ji 

03600180 

L INE 

19 


DO 5 1=1, NS 

03600190 

L INE 

20 


K = K & 1 

03600200 

L INE 

21 


IW!K) = J 

03600210 

L IN E 

22 


IS(K) = I 

03600220 

L INE 

23 

5 

CONTINUE 

03600230 

L IN E 

24 

10 

CONTINUE 

03600240 

L INE 

25 


IFTK 5) = IF (K) 

03600250 

L INE 

26 


IFT2! 5) = IF IK) 

03600260 

L INE 

27 


WRITE! 16, IFTl H I W 11 I ,I =1 , K) 

03600270 

L INE 

26 


WRITE! 16, IFT2 I IISII) , 1=1, K) 

03600260 

L INE 

29 


DO 20 I=l,K 

03600290 

L INE 

30 


WRITE! 16, 1003 I iWd), ISII), I ISGNS!I,J), J=1,K ) 

03600300 

L INE 

31 

20 

CONTINUE 

03600310 

L INE 

32 

1001 

FORMAT! IHi / 40X,45HTABLE OF INFLUENCING SECTIONS FOR MACH 

NUMBER 03600320 

L INE 

33 


1 ,F8.4 ) 

03600330 

L INE 

34 

1002 

FORMAT! //2X,50HKEY 0 ALL ELEMENTS OF I NFLU ENC TNG S ECT ION 

HAVE Z03600340 

L INE 

35 


1, 50HEPQ INFLUENCE ON ALL ELEMENTS OF RECEIVING SECTION // 

0360U350 

1 INF 

36 


2 7X, 32H1 NON-ZERO INFLUENCE IS ASSUMED /// 

03600360 

L INE 

37 


3 13X, 20HINFLUENCI NG SECTIONS ) 

U3600370 

L INE 

38 

1003 

FORMAT! / 5H WING, 12 / 5H SECT, 12, 4X, 1518 ) 

03600360 

L INE 

39 


RETURN 

03600390 

L INE 

40 


END 

03600400 


-6.82- 



CISPLAV...FILE 


DECK 37 



L INE 

1 

SUBROUTINE S YNBOLI X, V. SIZE, CHAR, ANG,NCHARI 

03700010 

L INE 

2 

OIMEN SION CHAR(3) 

03700U20 

L INE 

3 

CALL NOTA TE ( X, Y, SI ZE ,CHAR ,ANG , NCHARI 

037U0030 

L INE 


RETURN 

037000^0 

L INE 

5 

END 

037UU050 



-6.83- 





OKiGINMi ' 

OFPOOEQi>'^ 


DISPLAY. ..HUE 


DECK 38 


L INE 1 

L INE 2 

L INE 3 

L INE 4 

LINE 5 
L INE 6 

L IN E 7 

L INE 8 

L INE 9 

LINE 10 
LINE 11 


SUBPDimNE TIMOUTIMSEC ,A ,8 ,C .D ,E ,F ,G ,H> 
COMMON /TAPE/ I 9 , II 0 , 1 1 i , 1 1 2 , 1 13 , 1 1 4 , J9 
DATA TI / 0.0 / 

T = MSEC 
T = T/1000. 

TI = T “ TI 

WRITE (J 9, 3001) A i8 ,C «D ,E ,F ,G ,H , TI ,T 

TI = T 

RETURN 

3001 FORMAT! 6X» 6A4. 5X, F8.3, 13X, F8.3 I 

END 


03800010 
03HU0020 
03 800030 
C3H00UAU 
03300030 
03800060 
03800070 
03800080 
03 800090 
03800100 
03800110 


CISPLAV...FILE 


DECK 39 


LINE 

1 


SUBROUTINE TMAXINET, A, GBARI 

039U0010 

L INE 

2 


DIMENSION Am 

03900020 

L INE 

3 


DATA EPS / .0000001/ 

03900030 

L INE 

4 


GBAR =0.0 

03900040 

L INE 

5 


00 43 0 IEL = 1,NET 

03900050 

LINE 

6 


G = ABSIAIIEU ) 

03900060 

L INE 

7 


IFIG.GT. GBAR ) GBAR = G 

03900070 

L INE 

8 

480 

CONTINUE 

03900080 

L INE 

9 


IFIGSAR .EQ.O.OI GO TO 600 

03900090 

L INE 

10 


DO 580 lEL = 1,NET 

03900100 

L INE 

11 


G = EPS ♦ GBAR 

03900110 

L INE 

12 


G = AB S( G» 

03900120 

L INE 

13 


AIEL = A3S (AIIEU 1 

03900130 

LINE 

14 


IF (G .GT. AIEU AIIEL) =0.0 

03900140 

L INE 

15 

580 

CONTINUE 

C3900150 

L INE 

16 

600 

RETIKN 

03900160 

L INE 

17 


END 

03900170 


OP POOR 


CISPLAY.. 

.FILE 

DECK 40 



L TNE 

1 


SUBROUTINE TRANSI Xi Yi 2, T, XP, YP . ZC 

) 

04000010 

L INE 

2 


DIMENSION XU). V(l). ZIl), T(4», XPIl), 

YP(1 J 

04000020 

L INE 

3 


Tlx = x<4i - xm 


04000030 

L !NE 



TIY*** Y(4) - Yll) 


04000040 

L INE 

5 


T12 = 2(4) ~ 2(1) 


04000050 

L INE 

6 


T2X = X(3) - X(2) 


04000060 

L INE 

7 


T2Y = Y(3I - Y(2) 


040000/0 

L INE 

8 


T2Z = 2(3) - 2(2) 


04U0U080 

L INE 

9 


XN = T1Y+T2Z - T1Z+T2Y 


04000090 

LINE 

10 


YN = T12'*‘T2X - T1X*T2Z 


04000100 

L INE 

11 


ZN = riX*T2Y - TIY*T2X 


04000110 

L INE 

12 


XYZN = XN*XN e YN<=YN C ZN*ZN 


04000120 

LINE 

13 


XYZN = SQRT(XYZN) 


04000130 

L INE 

lA 


XN = XN/XYZN 


04000140 

L INE 

15 


YN = YN/XY2N 


04000150 

LINE 

16 


ZN = 2N/XYZN 


04000160 

L INE 

17 

C 



040001 70 

LINE 

18 


T( 1) = ZN 


04000180 

L INE 

19 


T( 2) = - YN 


04000190 

L INE 

20 


T(3) = YN 


04000200 

L INE 

21 


T(4) = ZN 


04000210 

1 INE 

22 

C 



04000220 

L INE 

23 


IT * 0 


04000230 

L INE 

24 


ZC, = YN*Y(l) E ZN*Zll) 


04000240 

L INE 

?.5 


ZX = ZC 


04000250 

L INE 

26 


IF( AdSIZC) ,LT. l.E~10 ) ZX » 1.0 


04000260 

L INE 

27 


DO 10 I»l,4 


0400 02 70 

L INE 

28 


XP( I) = XII ) 


04000280 

L INE 

29 


YP( I) = ZN«=Y(I) - YN*Z1I) 


040U0290 

line 

30 

C 

FOLLOWING CALCULATION FOR DEBUG 


04000300 

L INE 

31 

c 

Z 1 = YN4YII ) E 2N*Z II ) 


04000310 

L INE 

32 

c 

IF( ASS( ZC-Zl) /ZX .GT. 0.001 ) IT = 1 


04000320 

L INE 

33 

10 

CONTINUE 


04000330 

L INE 

3A 

c 

WRITE! 6,1001 ) ( Xtn.XPd), Yni.YPII), 

ZIDfZl ,1=1,4) 

04000340 

L INE 

35 

c 

WRITE! 6,1002 ) T 


04U00350 

L INE 

36 

c 

IF( I T ,EQ. 1 ) GO TO 20 


04000360 

L INE 

37 


RETURN 


040003/0 

L INE 

38 

C20 

CONTINUE 


04000380 

L INE 

39 

C 

WR ITE ( 6, 1003 ) 


04000390 

L INE 

40 

C1003 

FORMAT! /IX, 120(1H*)//79H ERROR IN TRANS - 

ALL Z*S ARE NOT IDENT ICA 

104000400 

L INE 

41 

G 

IL FOR A SECTION. PROCEED WITH CAUTION // 

IX, 120( IH*) /// ) 

04000410 

L INE 

42 

C 

RETURN 


04000420 

L INE 

43 

ClOOl 

FOPMATC // 3(2E14.4,2X) ) 


04000430 

L INE 

44 

C1002 

FORMAT! // (2E 14.4 )) 


04000440 

L INE 

45 


END 


04000450 


- 6 . 86 - 




DISPLAY, ..FILE 


DECK 


L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 


INE 

1 


SUBROUTINE WAKE T (I 12 ,A R0*<, WROW , IF , LRECLw , NS PT , IB , IZ,K1,NNCH 

09100010 

INE 

2 


liFRO.K ) 

09 100020 

INE 

3 


CUMPLEX WTES 

OhIUUUSU 

INE 

A 


COMPLEX AROWINSPTJ, WROW(LRECLW) 

U9100090 

INE 

5 


COMPLEX AROWJ 

09100050 

INE 

6 


LOGICAL TREDGE.WAKEl.WAKE.WAKENZ 

09100060 

INE 

7 


DIMENSION IZ(NSPT) 

04100070 

INE 

8 


DIMENSION NNCHINSPTI 

09100080 

INE 

9 


COMMON /FQl/ NPREO 

09100090 

INE 

10 


COMMON /K1I12/ KST11,KST12 

09100100 

INE 

11 


CGMMON/WAKEUP/ WTESI12I, TREDGE ,WAKEl ,WAKE , WAKENZ, KWAKE 

09100110 

INE 

12 


IF(Kl.EQ.K) GO TO 60 

U910(J120 

INE 

13 


READ! IB) K1,WRUW 

09100130 

INE 

lA 


IF(Kl.NE.K) RETURN 

09100190 

INF 

15 

60 

CONTINUE 

09100150 

INE 

16 


NNZ = 0 

09100160 

INE 

17 


L = IF 

09100170 

INE 

18 


DO 100 J = l.NSPT 

09100180 

INE 

19 


AROWJ = HROWIU 

C9100190 

INE 

20 


AR * AROWJ 

09100200 

INE 

21 


AI = AIMAG (AROWJ) 

09100210 

INE 

22 


AC * SORT( AR ♦«2 & AI **Zi 

09100220 

INE 

23 


IF ( AC .EQ. O.OJ GO TO 100 

09100230 

INE 

2A. 


NNZ .= NNZ C 1 

09100290 

INE 

25 


IZ(NNZ) - NNCH(J) 

09100250 

INE 

26 


AROW(NNZ) = AROWJ 

09100260 

INE 

27 

100 

L~L CNFREO 

091002/0 

INE 

28 


IF (NNZ .NE.O) WAKENZ -.TRUE. 

09 100280 

INE 

29 


IF(NNZ.EQ.O) RETURN 

09100290' 

INE 

30 


CALL WRITZWI 112, Kl.NNZ, IZ,AROW) 

09100300 

INE 

31 


KST12 =Kl 

09100310 

INE 

32 


RETURN 

09100320 

INE 

33 


END 

09100330 


PAGE B 
OP Pooa QUAUIY 

PAf^. 
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CISPLAY 


FILE 


DECK 42 


L INE 

I 


SUBROUTINE WINGC KICORNX, CORNY, CORNZt NWING, ICN, 

ERROR, 16 ) 

04200010 

L INF 

2 


LOGICAL ERROR 




04200U20 

L INE 

3 


DIMENSION CORNXm, CORNY(l), CORNZUI 


U420UU30 

L INE 

4 

C 

CHECK ON VALIOI TY Of- 

CORNER 

POINTS OF WING 


l«420U040 

L INE 

5 


ICNMi = lCN-1 




04200050 

L INE 

6 


DO 10 I = i,ICNMl,2 




04200060 

L INE 

7 


J = I C 1 




042000/0 

L INE 

8 


IFICDRNX(J) .LT. CORNXdl 1 

GO TO 

5 


04200080 

L INE 

9 


IF(CDRNY(JI .NE. CURNYII) 1 

GO TO 

5 


04200090 

LINE 

10 


IF(CORNZ(J) .NE. CORNZ(I) ) 

GO TO 

5 


04200100 

LINE 

11 


GO T3 10 




04200110 

L INE 

12 

5 

WK ITE( 16, 1001 ) 1 f J, NWI NG 



042U0120 

L INE 

13 


ERROR » .TRUE. 




04200130 

L INE 

14 

10 

CONTINUE 




04200140 

L INE 

15 


RETURN 




04200150 

L INE 

16 

1001 

FORMAT! // 120(1H*I /32H ERROR IN 

DEFINING CORNER 

POINTS, 12, 

04200160 

L INE 

17 


1 3HAND, 12, 8H OF WI NG , 12 

/ 1 



042001 70 

L INE 

18 


END 




04200180 




RIPBODUeroM'TV OF THF 
PAGE IS POOP 


i;iSPLAV., .file 


LINE 1 
L INE 2 
LINE 3 
L IN E ^ C 
LINE 5 C 
LINE 6 C 
LINE 7 C 
LINE 8 C 
LINE 9 C 
LINE 10 C 
LINE 11 C 
LINE 12 C 
LINE 13 C 
LINE lA C 
LINE 15 C 
LINE 16 C 
line 17 C 
LINE 18 C 
LINE 19 C 
LINE 20 C 
LINE 21 C 
LINE 2 2 C 
LINE 23 C 
LINE 24 C 
LINE 25 C 
LINE 26 C 
LINE 27 C 
LINE 20 C 
LINE 29 C 
LINE 30 C 
LINE 31 
LINE 32 
LINE 33 
LINE 34 
LINE 35 
LINE 36 
LINE 37 
LINE 38 C 
LINE 39 
L INE 40 
LINE 41 
LINE 42 
LINE 43 
LINE 44 C 
LINE 45 
LINE 46 
LINE 47 
LINE 48 C 
LINE 49 C 
L INE 50 C 
LINE 51 10 

LINE 52 C 
LINE 53 
LINE 54 
LINE 55 
LINE 56 


subroutine ViINGlN(I5t I6t NWING, NSECT, AR, NSPt COKNX, CORNY, 

1 CURN2, SYM, I CL, CL, ERROR, BEET A, IPrt, NEKbO, EKEO, 

2 REFLEN, LAB, ID, FO » 

THIS ROUTINE READS AND WRITES INPUT FOR WING DATA 

INPUT 

15 INPUT UNIT I USUALLY CARD READER 5 ) 

Ib OUTPUT UNIT ( PRINTER 6 I 

BEETA S3RT(MACH*MACH-1 I USED TO TRANSFORM CORNX AND CL 
ERROR LOGICAL THAT CONES IN FALSE, MAY BE SET TRUE 

OUTPUT 

NWING number of WING READ FOR STRUCTURE 

NSECT ARRAY- NO. SECTIONS IN EACH WING 

AR ARRAY- ASPECT RATIO OF EACH WING 

NSP NSP(I,J) NO. SPANS FOR SECTION I OF WING J 

CORNX, CORNY. CCRNZ X.Y.AND I COORD. OF CORNER PTS. OF W I\G 

SYM SYMUI SYMMtTRY CODE FOR WING J (A REAL MATRIX! 

SYM a FDR SYMMETRY, -L F CR ANTI -SYM, 0 FOR NO SYM. 

ICL ICL(I,J) CODE FOR SECTION I OF WING J 

1CL(1,J) = -J SPECIFIC GRID INFORMATION IS INPUT 
ICLU.J) = 0 AUTOMATIC MESH - NO CONTROL LINES 

ICLd.J) = I , OR 2 AUTO MESH WITH I OR 2 CONTROL L. 
Cl X COORD OF CONTROL LINES FOR EACH SECTION 

CL IS READ IN REF. SYSTEM. THEN DIVIDED BY BEETA 
LAB, ID, FD INFORMATION ON LAST CARO READ 

LOGICAL ERROR, CLINPT 
LOGICAL FREOR 

OIMEN SION CORNX! 8,4! , C0RNYI8, 41 , CORNZ(8,4!, CL(4,3,4) 

DIMEN SION FREQ ( I i , 1 PWm 

DIMFHSIQN NSECT(l) , ARIl!, NSP(3,4!, ICL(3,4!, 10(9», FD(4! 
DIMENSION SKU41, SK2I4I, SK3I4!, SK0DE14) 

DIMENSION SYMI4! 

DATA LI, L2, L3 , L4, LB / 4HGRID, 4HWING, 4HCURN, 4HL1N6, 4H / 
DATA L5, L6, LEND / 4HFREQ, 4HM0UE, 4HEN0 / 

DATA SKI / 4HISYM, 4HMETR, 4H1C! , 4H / 

data SK2 / 4HIANT, 4HI-SY, 4HMMET, 4HRICI ! 

DATA SK3 / 4HIN0T, 4H SYM, 4HMETR, 4HIC) / 

FREQR = .FALSE. 

NWING = 0 

BEERFL a BEETAI'REFLEN 


READ! 15, 1000 » LAB, ID, FD 

IFI LAB .EQ. L2 ) GO TO 20 
IF( LAB .EQ. L4 ! GO TO 40 
IF( LAB .EQ. LI! GO TO 80 
1F( LAB .Eg. L6 ) GO TO 65 


04300010 
04300020 
04300030 
04300040 
04300050 
04300060 
04300070 
043000EO 
043U0U9U 
0430010U 
04300110 
04300120 
04300130 
04300140 
04300150 
04300160 
04 300170 
04300180 
04300190 
04300200 
04300210 
0430U22U 
04300230 
04300240 
04300250 
0430026U 
043002/0 
04300280 
04300290 
04300300 
04300310 
04300320 
04300330 
U430U34U 
04300350 
04300360 
04300370 
04300380 
04300390 
04300400 
U4 3ij04l0 
04300420 
043004 30 
04300440 
04300450 
04300460 
043004 /O 

043004 eo 

04300490 

043UU5G0 

U4300510 

0430U520 

04300530 

04300540 

04300550 

04300560 


- 6 . 89 " 


L INf 
L INE 
L INE 
L IfvE 
L I^E 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 

1 IMP 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 

A A 

C 

c 

c 

r 

IF( lab .EQ. Ll ) GO TO 50 
IF( LAB .£0. LEND J GO TD 60 
IFI LAB .EQ. LB » GO TO 70 

INVALID LABEL CARD READ 
WRITE! 16, 2000 I 
WP ITE ( 16, 2018 » 

WR I TE 1 16, 2017 ) LAB, ID , FD 
ERROR = .TRUE. 

GO TO 10 



04300570 

043005t0 

U430U590 

04300600 

04300610 

04300620 

04300630 

04300640 

04300650 

04300660 

04300670 



L« 



* 

043U0 fc 00 

L INE 

69 

C 




O430U690 

L INE 

70 

20 

CONTINUE 



04300 700 

L INE 

71 

C 

•WING* CARO HAS BEE'v READ. 



04300710 

LINE 

72 

C 




04300720 

L INE 

73 


CL INP T = .FALSE. 



04300730 

L INE 

74 


NWING = NWING C 1 



04300740 

L INE 

75 

C 




U430U75U 

L INE 

76 


JW = ID(U 



04300760 

L INE 

77 


NC = ID(2) 



04300770 

L INE 

78 


ISYM = ID(3i 



043007B0 

L INE 

79 


IPWIJ W) = ID (4) 



04300790 

L INE 

80 


NS = ID(5J 



04300800 

L IN E 

81 

c 




04 300810 

L INE 

82- 


1F( VWING .LE. 4 ) GO TO 21 



04300820 

L INE 

83 


MORE THAN 4 WING DATA CARDS READ 


04300830 

L INE 

84 


WRITE! 16, 2000 ) 



04300840 

LINE 

85 


WRITE! I6» 2001 1 



04300850 

L INE 

86 

■ii 

WRITE! 16, 2004 J 



04300860 

L INE 

87 

j' 

ERROR = .TRUE. 



043008/0 

L INE 

88 

21 

CON TIN UE 



04300860 

L INE 

89 


IF! NWING .EQ. ID!U ) GO TO 22 



04300890 

L INE 

90 

C 

wlNG data CARD OUT OF SEQUENCE 


043UU9U0 

L INE 

91 


WRITE! 16, 2000 ) 



04 300910 

L INE 

92 


WRITE! 16, 2001 ) 



U430U920 

L INE 

93 


WRITE! 16, 2002 J ID(1), NWING 



04300930 

L INE 

94 


ERROR = .TRUE. 



04300940 

L INE 

95 

22 

CONTINUE 



04300950 

L INE 

96 


IF! IO(M .GT. 0 .AND. IDIl) 

. LE. 4 i 

GO TO 23 

U430U96U 

L INE 

97 

C 

WING NUMBER NOT BETWEEN 1 

AND 4 


04300970 

LINE 

98 


WRITE! 16, 2000 » 



043U09EO 

L INE 

99 


WRITE! 16, 2001 » 



043U0990 

L INE 

100 


WRITE! 16, 2003 1 ID III 



04301000 

L INE 

101 


ERROR = .TRUE, 



04301010 

L INE 

102 


JW = 1 



04301020 

L INE 

103 

23 

CONTINUE 



04301030 

L INE 

104 


IF! NS .LE. 3 ) GO TO 24 



04301040 

L INE 

105 

C 

MORE THAN 3 SECTIONS INPUT 

FOR GIVEN WING 

04301050 

L INE 

106 


WRITE! 16, 2000 » 



U4301U60 

L INE 

107 


WRITE! 1 6, 2001 ) 



04 3010/0 

L INE 

108 


WR iTE ( 16,2005 J JW, NS 



04301060 

L INE 

109 


ERROR = .TRUE. 



0430 1090 

L INE 

110 

• 

NS = 3 



04301100 

L INE 

111 

24 

CONTINUE 



04301110 

L INE 

M2 


NST * !NCCl)/2 •> 1 



0430M20 

L INE 

113 


IFINS .EQ. NST ) GO TO 25 



04301130 

L INE 

114 

C 

NO. CORNER PTS NOT CONSISTANT WITH 

NO. s ecr IONS of w ing 

04301140 

L INE 

115 


WRITE! 16, 2000 » 



04301150 

L INE 

116 


WRITE! 16, 2001 ) 



043011 60 

L INE 

1 17 


WR I TE 1 16, 2006 ) NC , NS, JW 



0430M70 

L INE 

118 


ERROR = .TRUE. 



U43UM80 


-6.90- 


L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
LINE 
LINE 
LINE 
L iNe 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
LINE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L INE 
L IN E 
LINE 
L INE 




119 



IF( NST ,LE. 3 I NS = NST 


04301190 

120 


25 

CONTINUE 


U 4301200 

121 

C 




U 43 U 1210 

122 



NSECT(JW) = NS 


U 4 J 0122 U 

123 



SYMU Kl = FLOATIISYM) 


0 A' 30123 U 

12 A 



DO 26 I=ltNS 


04 J 01240 

125 



ICL( If JW »=0 

« 

04301250 

126 


26 

NSPII f JW) = IDII C 5 ) 


U 4301260 

127 



AR(JW) = FOIll 


043012 ro 

128 

c 



■ ■' 

04301280 

129 

c 


CHECK ON SYMMETRY CODE 


U 43 U 12 SU 

130 



IFl lASSl ISYMJ . LE. 1 I GO TO 

27 

04301300 

131 



WRITE! I 6 f 2000 I 


0430 1310 

132 



WRITE! 16 , 2001 I 


04301320 

133 



WR ITE! 16 , 2022 ) JW, I SYM 


04301330 

134 



ERROR = *TRUE. 


04301340 

135 


27 

CONTINUE 


04301350 

136 

c 




0430 1360 

137 



IF( I SYM I 28 , 30 , 32 


04301370 

138 


28 

CONTINUE 


04301 3 E 0 

139 



DO 29 I = 1,4 


04301390 

140 


29 

SKODE (I) = SKZm 


04301400 

141 



GO TO 34 


043 UI 410 

142 


30 

CONTINUE 


04301420 

143 



DO 31 I * 1,4 


04301430 

144 


31 

SKODE! I) = SK 3 (I » 


04301440 

145 



GO TO 34 


04301450 

146 


32 

CONTINUE 


04301460 

147 



DO 33 I = 1,4 


043014/0 

148 


33 

SKODE! I) = SKltl) 


04301460 

149 

c 




04301490 

150 


34 

CONTINUE 


04301500 

151 

c 




04301510 

152 



WRITE! 16 , 3000 1 JW, iNC , ISYM, SKODE, IPWiJWI, NS ECM JW ) 

04301520 

153 



WR ITE ( 16 , 3001 III, NSPU , 

JW) ,1=1 ,N 5 ) 

04301530 

154 



WRITE! I 6 j 3005 I AR(JWI 


04301540 

155 

c 




U 4301550 

156 

c 




U 43 U 1560 

157 

c 


READ CORNER POINTS 


04301570 

158 

c 




043015 B 0 

159 



00 36 I= 1 ,NC 


04301590 

160 



READ! 15 , loco I LAB, ID, FO 


04301600 

161 



IF! I .GT. 1 1 GO TO 35 


0430x610 

162 



IF! LAB .EQ. L 3 I GO TO 35 


04301620 

163 

c 


CORNER DATA CARO MISSING 


0430 1630 

164 



WRITE! 16 , 2000 I 


04301640 

165 



WRITE! 16 , 2007 1 JW 


04301650 

166 



ERROR = .TRUE, 


04301660 

167 


35 

CONTINUE 


04301670 

168 



CURNX! I, JW) = FOm 


0430 1680 

169 



CORNY! I, JW) = FD! 2 ) 


04301690 

170 



CORN!! I ,JW) = FO 13 ) 


04301 /OO 

171 


36 

CONTINUE 


04301/10 

17 2 

c 




04301 /20 

173 



WR ITE( 16 , 3004 ) JW, (I,CORNX!I 

, JW) tCORNY! I, JW ),CORNZ! 1 , JW ), 

1 = 1 , NC ) 04301730 

174 

c 




04301740 

175 



IF! 2 *lNC/ 2 ) .EO. NC ) GO TO 

37 

04301750 

176 



CnPNX(NCGl, JW) = CQRNX!NC,JW) 


04301760 

177 



C 0 RNY(NCC 1 , JW) = CORNYlNCfJW) 


0430 1 V /U 

178 



CORNZ INCCl, JW) = CORNZ!NC,JW) 


04301 780 

179 



NC = NCLl 


04301 /90 

180 


37 

CONTINUE 


04301800 


-6.91- 


o'? 


L INE 

181 

C 




0430 1 810 

L INE 

182 

C 


CALL ROUTINE TO CHECK FOR PHYSICAL 

ERROk UN CORNER PUHT 

04301820 

L INE 

183 



CALL WINGCKICORMXa , JWJ .CORNY (1 , JHI , CORNZI 1. Jw ) , ,NL« ERRUR, 16 » 

04301 830 

L INE 

18A 

c 




04301840 

L INE 

135 



00 33 1=1. NC 


04301850 

L INE 

IBfa 



CDRNXd.JwI = CORNXn .JWI/BEERFL 


04301860 

L INE 

187 



C0kNY(1iJw» = cdknyii, jwi/reflen 


043018/0 

L INE 

188 



CDRNZII.J^I = CORNZI I , JWI /REFLEN 


04301860 

L INE 

189 


38 

CONTINUE 


04301890 

L INE 

190 



GO TO 10 


04301900 

L INE 

191 

c 




04301910 

L INE 

192 


40 

CONTINUE 


04301 920 

L INE 

193 

c 




04301930 

L INE 

194 

c 


SECTION TO PROCESS CONTROL LINE INFORMATION 

U4301S40 

L INE 

195 

c 




04301950 

L INE 

196 



IS = ID<1) 


04301960 

L INE 

197 



K = ICLI IS.JKI C 1 


043019/0 

L INE 

198 



ICLI 1 S, JWi = K 


04301980 

L INE 

199 



IF( IS .LE. NSECTIJW) J GO TO 41 


04301990 

L INE 

200 

c 


CONTROL LINE SPECIFIED FOR SECTION 

THAT DOES NOT EXIST 

04302000 

L INE 

201 



WRITE! 16, 2000 I 


04302010 

L INE 

202 



WRITE! 16, 2008 I JW 


04302020 

L INE 

203 



WRITE! 16,2011 ) IS, JW, NSECTIJW) 


04 30 20 30 

L INE 

204 



ERROR = .TRUE. 


04302040 

L INE 

20 5 



GO TO 10 


04302050 

L INE 

20 6 


41 

CONTINUE 


04302060 

L INE 

207 



IF! K .LE. 2 ) GO TO 42 


04302070 

L INE 

208 

c 


MORE THAN TWO CONTROL LINES READ FOR SAME SECTION 

04302060 

L INE 

209 



WR ITE 1 16, 2000 ) 


04302090 

LINE 

210 



WRITE! 16, 2008 I JW 


04302100 

L INE 

211 



WRITE! 16, 2009) IS 


04302110 

L INE 

212 



ERROR = .TRUE. 


04302120 

L INE 

213 


42 

CONTINUE 


04302130 

L INE 

214 



IF! K .EQ. I0!2> ) GO TO 43 


04302140 

L INE 

215 

c 


CONTROL LINE DATA OUT OF SEQUENCE 


04302150 

L INE 

216 



WR ITE 1 16, 2000 ) 


04302160 

L INE 

217 



WRITE! 16, 2000 ) JW 


043021/0 

L INE 

218 



WR ITE 1 16, 2010 ) I S 


U4302180 

LINE 

219 



ERROR = .TRUE. 


04302190 

L INE 

220 


43 

CONTINUE 


04302200 

L INE 

221 

c 




0A3022i0 

L INE 

222 



IF! .NOT. CLINPT ) WRITE! 16, 3002) JW 


04302220 

L INE 

223 

c 




04 302 2 30 

L INE 

224 



CL INP T = .TRUE. 


04302240 

L INE 

225 



WRITE! 16, 3003 ) IS, K, FDU), F0I21 


U4302250 

L INE 

22 6 

c 




04302260 

L INE 

227 



XI = FOm/BEERFL 


0A3U22 10 

L INE 

228 



X2 = FD! 2)/3EERFL 


04302280 

L INE 

22 9 



ICN = 2»IS - 1 


04302290 

L INE 

230 



IF! Ki .LT. C0RNX!1CN, JW) ) GO TO 44 


04302300 

L INE 

231 



IF! XI .GT. CQRNXIICNLI , JW) ) GO TO 44 


04302310 

L INE 

232 



IF! X2 .LT. CORNX! ICN£2 , JW) ) GO TO 44 


U43U2320 

L INE 

233 



IF! X2 .GT. CORNX! ICNL3 , JW) ) GO TO 44 


04302330 

L INE 

234 



GO TO 45 


04302340 

L INE 

235 


44 

CONTINUE 


04302350 

L INE 

256 

c 


CONTROL LINE DEFINED OUTSIDE OF SECTION 

04302360 

L INE 

2J7 



WRITE! 16, 2000 ) 


043023/0 

L INE 

238 



WR ITE ! I 6, 2008 > JW 


04302360 

L INE 

239 



WR ITE! 16, 2012 ) K, I S 


04302390 

L INE 

240 



ERROR = .TRUE. 


UA3U2ROO 

L INE 

241 


45 

CONTINUE 


04302910 

L INE 

242 



IF! K ,EQ. 1 ) GO TO 46 


04302420 
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of 




L INE 

2^3 



IFI XI .35. CUl .1 S, JKI 

.AND. X2 . GE. CL!2, IS , JW I 

1 GO TO 46 

04 3U 2 430 

L INE 

2AA 

C 


SECOND CONTROL LINE 

DEFl NED 

ABOVE FIRST 



04302440 

1. INE 

245 



WHITE! 16, 2000 I 






04302460 

L INE 

246 



WRITE! 16, 2008 ) JW 






04302460 

L INE 

247 



WR ITE ! 16, 2013 1 I $ 






04302470 

L INE 

248 



ERROR = .TRUE. 






043024 EO 

L INE 

24 9 


4 6 

CONTINUE 






04302^,90 

L INE 

250 



JCN = 2*K - 1 






04302500 

L IN E 

251 



CL! JCN, I S,JW) = XI 






04302510 

L INE 

252 



CL ( J:nC1,IS, JWI = X2 






043U2520 

L INE 

253 



GO TO 10 






04202530 

L INE 

254 

c 








04302540 

L IN E 

255 


50 

CONTINUE 






04302550 

L INE 

256 

c 


FREQUENCY CARD READ 






U43U2560 ' 

L INE 

257 



DO 55 I =1, 4 






04302570 

L INE 

258 


55 

FRECH n = FD (I ) 






043025E0 

L INE 

259 



NFREQ = 10(1) 






04302590 

L INE 

260 



IF! NFREQ .GT. 4 1 READ! 

15, 1001 

I ! FREQIII, 

1=5, 

NFREQ I 

04302600 

L INE 

261 



WRITE! 1 6, 3006 J NFREQ, ! 

FREQd J , 

1=1, 

NFREQ) 


04302610 

L INE 

262 



FREQR = .TRUE. 






04302620 

L INE 

263 



GO TO 10 






04302630 

L INE 

264 

c 








04302640 

L INE 

265 

60 

CONTINUE 






04302650 

L INE 

266 

C 


END CARD READ 






04302660 

LINE 

267 

c 


MODE DATA IS MI SSIN6 





04302670 

L INE 

268 



WRITE! 16, 2000 ) 






043026E0 

L INE 

269 



IF! .NOT. FREQR I WRITE! 

16, 2015 

I 




04302690 

L INE 

270 



WRITE! 16, 2014 I 






04302700 

L INE 

271 



ERROR = .TRUE. 






04302 710 

L INE 

272 



RETURN 






04302720 

L INE 

273 

c 








04 30 2 7 30 

L INE 

274 


65 

CONTINUE 






04302740 

L INE 

275 



IF! FREQR 1 RETURN 






04302750 

L INE 

27 6 



WR ITE ! 16, 2000 I 






U4302 760 

L INE 

277 



WRITE! 16, 2015 1 






04302770 

L INE 

278 



ERROR = .TRUE. 






04302760 

LINE 

279 



RETURN 






04302790 

L INE 

280 

c 








04302800 

L INE 

281 


70 

CONTINUE 






04302810 

1. INE 

282 

c 


LABEL CARD EXPECTED 

BUT NOT 

RECEIVED 




04302820 

L INE 

283 



WRITE! 16, 2000 J 






04302830 

L INE 

284 



WRITE! 16,2016 1 






04302840 

L INE 

285 



WRITE! 16, 2017 I LAB, ID 

, FO 





U430285U 

L INE 

286 



ERROR = .TRUE. 






04302860 

L INE 

287 



GU TO 10 






04302870 

L INE 

288 

c 








04302860 

L INE 

289 


80 

CONTINUE 






04302890 

L INE 

290 

c 


GRID CARD READ 






04302900 

L INE 

291 



I = rD(2> 






04302910 

L INE 

292 



J = ID 1 1) 






04302920 

L INE 

293 



IF! I .GT. NSEC TUI ) GO 

TO 81 





0430293U 

L INE 

294 



IF! J .GT. NWING I GO TO 

81 





04302940 

L INE 

295 



ICL!I , J) = -1 






04302950 

L INE 

296 



RETURN 






04302960 

L INE 

297 


81 

CONTINUE 






04302970 

L INE 

293 

c 


GRID DATA SPECIFIED 

FOR SECTION THAT 

DOES 

NUr EXIST 

043029E0 

L INE 

299 



WRITE! 16, 2000 ) 






04302990 

L INE 

300 



WRITE! 1 6, 2020 ) 






04303000 

L INE 

301 



WRITE! 1 6, 2021 ) J, I 






04303010 

L INE 

302 



ERROR = .TRUE. 






04303020 

L INE 

30 3 



RETURN 






04303030 

L INE 

304 

c 








04303040 
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1000 FORMATi A4, 2X , <512. AE12.0 I 

1001 F3RMAT( 24X» 4E12.0 > 


2000 FORMAK/// IXt 129(IH<-! ■ ERROR IN READING INPUT. I 

2001 F0RMAT(29H /JING DATA CAR lb INCORRECT. I 

2002 FORMAT! 14H DATA FDR WIN!., I2,28H WAS READ WHEN OAT A FDR WING, 13, 
1 2BH WAS EXPECTED BY THE PROGRAM K } 

2003 FORMAT! 82H WING NUMBER MUST BE GREATER THAN ZERO AND LESS THAN OK 
1 EQUAL TO 4. I T WAS READ AS, 12 /56H IT WILL BE TREAIED AS WING 1 
2F0R FJR CHECK PURPOSE ONLY / ) 

2004 FORMAT! 47H NO MORE THAN FOUR WING DATA CARDS MAY BE INPUT 1 
20C5 FORMAT! 34H NUMBER OF SECTIONS INPUT FOR WING, 12, 3H IS, 12 / 

1 47H THIS IS GREATER THAN THE MAXIMUM PER WING OF 3 ) 

2006 FORMAT! 24H NUMBER OF CORNER POINTS* 12, 19H IS NOT CONSISTANT , 

1 27HWITH THE NUMBER OF SECTIONS, 12, 9H FOR WING, 12 1 

2007 FORMA TI36H 'CORNER* DATA CARD MISSING FOR WING, 12 1 

2008 FORMA TI43H ERROR ON CONTROL 'LINE* DATA CARD FOR WING, 12 I 

2009 F0RMAT!54H MORE THAN TWO CONTROL LINES ARE SPECIFIED FOR SECTION, 

I 12 1 

2010 F0RMATI49H CONTROL LINES ARE NOT INPUT IN CRDER FOR SECTION, 12 I 

2011 FORMA T<38H CONTROL LINE IS SPECIFIED FUR SECTION, 12, 8H UF WING, 

1 12 / 14H THIS WING HAS, 12, 3lH SECTIONS. CONTROL LINE IGNORED) 

2012 FORMAT! 13H CONTROL LINE, 12, 12H FOR SECTION, I2,44H IS NOT DEFINE 
10 TO BE INSIDE OF THE SECTION. ) 

2013 FORMAT! 26H CONTROL LINE 2 OF SECTION, 32, 33H IS ABOVE THE FIRST 
ICUNTRQL LINE. ) 

T2014 FORMA T(37H MODE DATA IS MISSING OR OUT OF ORDER ) 

V2015 FORMA TI42H FREQUENCY DATA IS MISSING OR OUT OF ORDER i 
•20 16 FORMAT! 42H A LABEL CARD IS EXPECTED BUT NOT PRESENT. » 

■2017 FORMAT! 67H CARO WILL B 

’ IE PRINTED ON FOLLOWING LINE AND NEXT CAPO WILL BE READ. / IX, 

2 A4, 2X, 9I2,4E12.0 I 

2018 FORMAT! 32H AN INVALID LABEL CARD WAS READ. ) 

2020 FORMAT! 27H ERROR ON GRID LABEL CARD, ) 

2021 FORMAT! 27H GRID DATA PRESENT FOR WING, 12, 8H SECTION, 12 / 

1 53H THIS- SECTION HAS NOT BEEN DEFINED FOR THE STRUCTURE. ) 

2022 FORMAT! 23H SYMMETRY CODE FOR WING, 12, 12H IS INPUT AS, 14 / 

1 41H SYMMETRY CODE MAY ONLY EQUAL -1 , 0 , OR 1 / » 


INPUT AS, 

» 


3000 FORMA T! ////20X, 13HDATA FOR WING, 

1 23HNUMBER OF CORNER POINTS, 16 If 24X, 

2 13H5YMMETRY CODE, 116 / 24X, 4A4 ft 24X, 

3 17H3UTPUT PRINT CODE, 112 ft 24X, 

4 16HN UMBER OF SECTIONS, 111 ft 

5 24X, 1 8HNUMSER OF SPANS IN ) 

3001 FORMAT! 33X, 7HSECTI0N, 12, 111) 

3002 FORMAT! /24X ,22HCONTROL LINES FOR WING, 12 t 
1 lOX, 2HX1, 14X, 2HX2 ) 

3003 FORMAT! 26X , 215, 5X, 2E16.5 ) 


12HSECTI0N L INE, 


3004 FORMA T! / 2 
1 / 30X, 1 

30C5 FORMAT! / 2 
30C6 FORMAT! 

lES, 112 / 


40HCQ0RDI NATES OF THF. CORNER POINTS OF WING, 12 
15X, HY, 15X, IHZ t ! 20X, 15. 3E16.5 I ) 
12HASPECT RATIO, F17.4 ) 

ft ft 21HNJMBER OF FRhOUENCI 

, 19HLIST OF FREQUENCIES, 5F14.4 / !39X, 5F1^.^) ) - 
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SU3P3JTINE WINTOKI X, Yr .4' 

COMPLEX WTES 
INTEGER G06ACK 

LUGICAL EkcONE EMIRRO, THAILK-. 




LOGICAL ERROR . . > . 

LOGICAL MIRRQtC 
LOGICAL TEXCD 
LOGICAL TRAINF 
LOGICAL TREDOB, MKBl 
DIMENSION CXRIiai, CXI (12) 

DIMENSION RKTER;M130). 

DIMENSION SKA(30) 

DIMENSION ^LEAOIZO) 

DIMENSION WSAVEI20) 

DIMENSION X(l), Y(l) f WROWdl 
COMMON/H ASIC/MACH, 3EETA , KAPPA ,I PRNT(5) 

COMMON / EEW / XUP. YUP » XLW , YLW, EREUNE, EMIKRO, KR, RL, RIR» R TL 044UU 170 

COMdN / FO 1 / NFREQ , CF(12 ,30) , FRE0U2), FPEQP(12>, FRT ES I , NTMXX 04400 1 EO 

CDMMO'I / RRLL / TVV«(4), YRo, YLO , 2R , ZR2R, ZL, ZLZL, IRC, I IN 044UU190 

COMMON /WAKE/ ITUM, ITW, ICNVGw, E'PSw, JCNVGw,LRwrE ,IwTE 04400200 

CO'^MO.N / hAKEUP / wTES(l2), TRF'JGE , WAKEl U440U21U 

COMMON / WVl / NTERM, V(30», w(30) U440U22U 

COMMON / WWl / X0,Y0,ZD,ZDZD , SYMK, NI.NS I D 04400230 

common / ZFDZI'J / 15, 16 UA40U240 

DATA KCONV / 0 / 04400250 

DATA RKTERM / D.221 , 0. 645 1 . 1 ?2 ,. 1.807 , 2.461 , 3.14, 3.835, U440U26U 

1 4.541, 3.255, 5.97*t, 6.697, 7.42, 3.15, S.dE, 9.61, 10.34, O44OU2/0 


04400010 
U4400U20 
04*+000 3U 
U4 A0UC40 
04400050 
U4400U6U 
0440U0 10 
04400080 
044000S0 
04400100 
044U0110 
04400120 
04-rJ0130 
04400140 
04400150 
04400160 


11.08, il.81, 12.55, 13.28, 14.02, 14.16, 15.49, 16.23, 16.97, 04400260 


17.71,. 18.44, 1 9. 18, 19. 92, 20. 6 


X 

Y 

XO 
YR 0 
YLO 
ZD 


X COOR. OP POINTS OF INFLUENCING ELEMENT 
Y CUOR. OF POINTS OF INFLUENCING ELEMENT 


04400290 

04400300 

04400310 


X COORDINATE QF RECEIVING PT . (CENTER OF ELEMENT ) 04400320 


Y COORDINATE CF RECEIVING PT . (IN KIGHf SIDE ) 

Y COORDINATE CF RECEIVING PT. (IN LEFT SIDE )) 


04400330 

04400340 


DIFFERENCE BEr.vEEN Z* S OF INFLJ. AND HECEIV. EL EM . 04400350 


ZDZD IS THE SOUARE OF THE DIFFERENCE UF THE RbC AND INFt Z'S U4400360 


rvw 
N TERM 
SYM 
ERROR 
tNROW 


IFIRSi 

.NAKEl 

TREDGE 


TRANSFORMATION TQ COMBINE UPWASH AND SIDEWASH 0440U3/U 

NO. TERMS ! N APPRGXI MAT I ON OF VELOCITY INTEGRALS 04400380 

SYMMETRY CODE ( 0.0 F CR NO SYMMETRY } 044003 SO 

LOGICAL SET EQUAL TO TRUE IF AN ERROR IS DET ECT ED 04400400 

AN ARRAY OF THE FREOUENCY IN'JEPENDENI TERMS OF THE U440U410 

VELOCITY IiNTEGALS F OR A FIVF.N RtC. EL EM AND INFL EL EM U44U0420 

ENCING ELE.MENT HAS NO I NFLUENCE . ( NOT MIRROR ELEMENT) 044J0430 
.TRUE. IF ELEMENT IS THE FIRST ELEHTNI OF INFLJ. SP AN 044 J0'<40 
LOGICAL SET TO .TRUE. IF WAKE ELENE.NT HAS INFLUENCE 04400450 
LOGICAL INPUT AS TRUE IF INFL. ELEM. IS THE T KA 1 AL INGU440U 460 


EDGE ELEMENT OF I TS SPAN 

WTES(J) COMPLEX ARRAY OF INFLUENCE OF WAKE EFFECT FOR 
.FREQUENCY J 


INITIAL I ZP: WROW TO ZERO 


10 


DO LO I --=1, NFREQ 
WKOW(-l) =0.0 


044004/0 
U4400480 
04400490 
U440U50U 
04400510 
04 40 0 5 20 
U44JU530 
044UU540 
04400550 
U44UU56U 


ORIGINAL PAgB i J 
OF POOR QVMJTX 


L TmE 

57 

C 

TEST LE&3 1 iC EOOE LINE 


04 400 5/0 

L JNE 

5S 


YL W =. Y { U 


^,4*100580 

L ii\e 

5‘) 


YUP = YI2I 


OW'tOObSO 

L INt: 

60 


XL V» = X( n 


04400DOO 

L IME 

61 


XUP =* X(2) 


04400610 

L l.\ E 

62 

C 



04400620 

L INE 

63 


CALL EONE *' •' ’ ‘ ’ 


044U063U 

L INE 

64 

c 



04400640 

L INE 

65 

c 

IF ELEMEJT IS NOT IN MACH CONEf HbTURN 

WITH ZERO IN WknW. 

04400650 

L l.\E 

66 

c 

PROCESS ANYrtAY IF IT ISA SELF ELEMENT 

(OIAGLNAL TERM) 

0 440 0 660 

L INE 

67 


IF( £<£UNE .DR. I I.N .EU. IRC » GO T 3 20 


C44O0670 

L I\E 

68 

c 



04400680 

LINE 

69 


RETURN 


04400890 

L INE 

70 

c 



04400 /UO 

L INE 

71 

20 

CON ri.NUE 


04400710 

L INE 

72 


IF! UC .EQ. 1 .AND. IIN .EO. 1 I KCCNV = 

0 

04400720 

L IN E 

73 

C 



04400/30 

L INE 

74 


ASSIGM 310 TO IrtAKEl 


04400740 

L INE 

75 


ASSIGN 160 TO 1 WAKE 2 


04400750 

L INE 

76 

C 



04400 /60 

L INE 

77 


NTERH = 1 


04400770 

L INE 

78 


RRU =, RR 


04400/80 

L INE 

79 


RLU RL 


04400/90 

L INE 

80 


MIRROR = EMIRRO 


U44U0800 

L INE 

31 


TRAINF = .FALSE. 


0 4400 810 

L INE 

82 


WAKEl = .FALSE. 


04400820 

L INE 

33 


IF! .NOT. TREOGc ) GO TO 25 


04400830 

L INE 

84 

c 

TEST TRAILING ED3E LINE 


04400840 

L INE 

85 

c 



U44J0850 

L INE 

36 


YLW = Y( 2) 


U440O86U 

L INE 

87 


YUP Y( 1) 


04400870 

L INE 

80 


XLW =* X( 3) 


04400880 

L INE 

89 


XUP = XI 4) 


044008SO 

L INE 

90 

c 



044009CO 

L IN’ E 

9 1 


CALL EONE 


U44J0910 

L INE 

92 

c 



U44UU920 

L INE 

93 


YLW Yl 1) 


04400930 

L INE 

94 


YUP Y(2) 


04400940 

L INE 

95 


XLW ^ XI n 


04400950 

L INE 

96- 


XUP = XI2) 


04400960 

L INE 

97 

c 



0‘+4009 70 

L INE 

98 


IFI ;N0T. EREONE ) go to 40 


04400980 

L INS 

99 


TRAINF = .TRUE. 


04400990 

L INE 

100 


IFI 1.WTE ,N6. 0 .ANO. RTR ,GT. 0.0 ) WAKEl = .TRUE. 

U4401000 

L INE 

101 


GO TO 40 


0440 1010 

L IN E 

102 

c 



0440 1020 

L INE 

103 

25 

CO'N T I.N U£ 


04401030 

L INE 

104 


IFI N IN SID .EQ. 0 ) 30 TO 4 0 


04401040 

L INE 

10 5 


00 30 I=1,NFREQ 


0440 1050 

L INE 

106 

30 

WRDM I ) = -vmLEAO (I 1 


0440 lUfcO 

L INE 

107 

C 



04401070 

L IME 

108 

40 

CONTI.NUE 


04401080 

L INE 

109 


DO 45 I=1,NFRE0 


04401090 

L INE 

no 

45 

WL EADI 1 ) = 0.0 


04401 100 

L INE 

111 

C 



0440 1 1 10 

L INE 

112 

c 



0440 1 12U 

L IN F 

113 


N INSLD = NINSIO S 1 


04401 130 

L INE 

114 

c 



04401 140 

L INF 

1 15 


YO = YRO 


0440 1150 

L IN E 

116 


ZD = ZR 


04hU 1160 

L INE 

117 


ZDZD = ZR;ZR 


04 40 1 170 

L IN E 

118 


TV = TVhl 11 


04401180 


6.96- 


L INF 

119 


rw = rv^<(2) 

04^01190 

L I-\fc 

120 

C 


UA^Jl^OO 

L INF 

121 


IF( F^TEST .EO. C. 0 ) 00 TO 145 

0*, ,01210 

L IMt 

122 

C 


044 J1 220 

L INF 

123 

c 

SECTION fJOR NEAR FII L'J l EDGE 

0‘,4u 1 30 

L IK£ 

12<i 

c 

DECIDE HOw MANY TERMS ARt ■ • ...SEO LN PK 

U4t J 1240 

L INF 

125 


RK = RRU<'FR TEST ' . } 

04401250 

L INE 

126 


ASSION 145 TIJ G05ACK 

04401^60 

L IN' 6 

127 


GO TJ 600 

04-,JU TO 

L It^E 

12 a 

145 

C0NT1.>)U6 

044 Jl<;80 

L IN t 

129 

C 


04401290 

L IN 6 

130 


CALL WVINT 

04401 AOO 

L 1N6 

131 

c 


044D1 jlO 

L INE 

132 


ASSIGN 150 TO G08ACK 

04401320 

L INE 

133 


GO T3 800 

04‘fDl330 

L IN E 

134 

150 

CONTINUE 

04 4013 40 

L INE 

135 


DO 15 5 I=l,NFRED 

04401350 

L INE 

136 


WL EAO( ! ) = ULEAD ( I). G SKA (I I 

04401360 

L INE 

137 


wROwI I ) = WROWI 11 El SKAIl) 

U4401370 

L INE 

138 

15 5 

CONTLN UE 

04401380 

L IN 6 

139 

C 


04401390 

L INE 

140 


GO T3 I WAKE 2, I 160 » 320 ) 

04401 4C0 

L IN E 

141 

160 

CONTINUE 

04401410 

L INE 

142 

C 


04401420 

L INF 

143 

C 

CHECK IF LEFT HAND ELEMENT IMIRROR IMAGE! EXISTS 

04401430 

L INE 

144 

C 


U44D144U 

L INE 

145 


IF( .NOT. MIRROR ) GO TO 3 00 

04401450 

L INE 

146 

C 

SECTION FOR left HA NO SIDE OF LEADING EDGE 

04401460 

L INE 

147 


IF( FRTEST ,EQ. 0.0 1 GO TO 135 

04401470 

L INE 

148 

c 


04401 480 

L INE 

149 

c 

SECTION FOk NEAR F1EL0» LEFT HAND SIDE LEADl.NG EDGE 

044014 90 

L INE 

150 

c 

DECIDE HOW MANY TERMS ARE NEEDED HASED UN RK 

044U15C0 

L INE 

151 


RK = RLU^FR TEST 

04401510 

L 1N6 

152 


ASSia-J 185 TO G03ACK 

04401520 

L INE 

153 


GO TO 600 

04401530 

L INE 

154 

135 

CONTMUE 

04401540 

L INE 

155 

C 


04401550 

L INE 

156 


YO = YLO 

04401 560 

L INE 

157 


ZD = ZL 

04401570 

L INC 

L5a 


ZDZO = ZLZL 

04401 580 

L INE 

159 


TV = TVWI3) 

044JI 590 

L INE 

160 


TW = TVW(4I 

0440 1600 

L INE 

161 

c 


04401610 

L IN E 

162 


CALL WVINT 

0440 1620 

L INE 

163 

c 


04401630 

L INE 

164 


ASSIGM 190 TO G03ACK 

04401640 

L INE 

165 


GO TO 800 

04401650 

L INE 

166 

190 

CONTINUE 

04401660 

L INE 

167 

< 

DO 195 I=l,NFREa 

044016/0 

L INE 

168 


WLEAO(I) = WLEADII) - SYMK<=SKAm 

04401680 

L INE 

169 


WROWI I) = WROwn I - SYMK^SKAin 

044U1 690 

L INE 

170 

195 

CONTINUE 

0440 1 /OO 

L INE 

171 

C 


044ul 710 

L IN E 

172 

300 

CONTINUE 

044 J 1/20 

L INE 

173 

C 


0440 1 730 

L INE 

174 


IF( JNOT, TRAINF ) R.ETURN 

04401 /4U 

L INE 

175 

1 7 i. 

r 

GO TO IhAKEl, I 310,320 I 

04401/50 

L c 

1(0 

w 


- —U44UI/CU 

L INE 

177 

c 


0 4 401 7 /O 

L IN E 

178 

310 

CONTINUE 

0440 1 /bO 

L INE 

179 

C 


04401 /SO 

L IN E 

180 

C 

FIND INFLUENCE OF TRAILING EUGE OF TRAM [NO EDGE ElLMtNf 

0440 1800 


-6.Q7- 



1 

151 

C 

I THE RIGHT H^ND FLEMcNT ONLY AT 

THIS 

timei 

D4401310 

L I\-E 

152 

C 




U44D1 620 

L INF. 

183 


ASSIGN 3 20 TO IwAKEl 



Oh tOl ciO 

L I.NE 

184 


ASSIGN 320 TO UAK62 



U<i4Ul B40 

L INF 

185 

C 




0^401850 

L INF 

186 


YLW ^ YI 2) 



U44ul BtO 

L INF 

107 


YUP =* YI U 



04*101 B /U 

L INF 

138 


XLW = X( 3) 



0440 13B0 

L INF 

139 


XUP =1 X( 4J 



D44J1B90 

L INF 

190 


YO = YKO 



04 >01900 

L INF 

191 


ZD ~ ZR 



04401 SIO 

L INF 

192 


ZDZD = ZRZR 



04401920 

L INF 

19 3 


TV = TV^.( 11 



04401930 

L INF 

194 


TH = TVWI2) 



U4401940 

L INF 

195 


SYM =-1.0 



04401950 

L INF 

196 


MIRROR = EMIRRO 



04401960 

L INF 

197 

C 




044U19/0 

L INF 

198 


DO 315 J = 1#NFRE0 



04401980 

L INF 

199 


WTFSI J ) = I 0.0, U. 0). 



0>401990 

L INF 

200 


WSAVE(J) = wLFAOIJ) 



04402000 

L INF 

201 

315 

WLEAD(J) = 0.0 



04402010 

L IN E 

202 

C 




04402020 

L INF 

20 3 


IF( FRTFST .EQ. C.O 1 GO TO 145 



04402030 

L INF 

204 


RK = RR*FRTEST 



04402040 

L INF 

20 5 


ASSIGN 145 TO CJ8ACK 



044J2050 

L INF 

206 


GO T3 600 



04402060 

L INF 

207 

c 




04402070 

L IN F 

208 

320 

CONTIiNUE 



04402080 

L INF 

209 

C 




04402090 

L INF 

210 


IF( 4N0T. WAKEl ) GO TO 370 



04402100 

L INF 

211 

c 




0440 2110 

L INF 

212 

c 

SECTION TO COMPUTE WAKE EFFECT 



04402120 

L INF 

213 

c 

THIS SECTION HANDLES BOTH RI.GHT 

AND LEFT HAND FLEMENTS 

0>402 130 

L INF 

214 

c 




04402140 

L INF 

215 


Z1 => XO “ XLW 



044U2150 

L INF 

216 


2 2 =. XO -XUP 



04402160 

L INF 

217 


El =i YO - YLW 



049021 70 

L INF 

218 


E2 = YO - YUP 



04402180 

L INF 

219 


23P ^ SORII E2*E2 C ZDZD 1 



04402190 

L INF 

220- 


2 4P =, SuRTI Ei^^El C 20 20 1 



044U22U0 

L INF 

221 


2TE =i 0.5*( 21S22I 



04402210 

L IN E 

222 


2LW =. 0. 2 3PC24P) 



04402220 

L INF 

223 

c 

DIVIDE 2D IS = 2U-ZL INTO A NUMBER 

OF DIVISIONS 

04402230 

L INF 

224 


20 IS = 2IE - 2LW 



04402240 

L INF 

225 


DS d £2 - ei 



04902250 

L INF 

226 


N w = 20 I S/D S 



04402260 

L INF 

227 


I FI N W .FO, 0 1, NM = 1 



04402270 

L INF 

228 


IFI FRTFST .ED. 0. 0 1 NW = 1 



04402280 

L INF 

229 

' 

DEL TA 2 = 2D I S/NW 



04402290 

L INF 

230 


2 SM2TF = -0. 5<^DFLTA2 



04402300 

L IN F 

231 

c 




04402310 

L INF 

232 

c 

FIND WAKE EFFECT OF IRAILING EDGE LINE 

04402320 

L INF 

23 3 

c 

(NOTE WLEAO WAS COMPUTED IN OPPOSITE 

DIRECT lONl 

04402330 

L IN E 

234 

c 




04402340 

L IMF 

235 


DO 325 I = I,iNFREQ 



09402350 

L INF 

236 


FBZ = -( FRED( I ) /JFETA J^ZSMZIF 



04402360 

L IN E 

237 


CXRI U = COS( FD2 1 



099023/0 

L INF 

238 


CX im = SIN( FO 2 1 



04402380 

L INF 

239 


WTFSI I) = WTESd.l - CMPl.Xi WLF. AO I II * CXR (I ) 

, WLEAOl 1 1 *CX II U 1 

09402390 

L INF 

240 

325 

CONTINUE 



09402400 

L INF 

24 1 

C 

IF NW=l WE ARE DONE 



09402410 

L IMF 

242 


IFI N w .60 . 1 ) GO TO 3 70 



04402420 


L INE 

243 

C 

< ■ 

04hJ2430 

L IfsE 

244 

c 

section to fSND RAM EFFECT C’F THE REST CF THE WAKE 

Mb 0'»4J24 4U 

1 IN£ 

245 

c 


U4402450 

LINE 

24 6 

c 

KLU = AVERAGE X 

044>I2460 

L INE 

247 


XL W = 0.5^'( XLWC.XUPI 

044U24 /O 

L INE 

248 

c 

NOTE CHANCE IN Din^CTI ' t 

04402460 

L INE 

249 


YLW VI 1) * . 

044024 5U 

L INE 

2 50 


YUP = Y1 21 

04^02500 

L INE 

251 


ELS = 1 Y0-YLh)<=^‘2 C ZD 20 

U44O2510 

L INE 

252 


EUS a. 1 Y3- YUPJ'»‘i‘2 t on 

04402520 

L IN E 

253 

c 


04402530 

1. INE 

254 


DO 360 L INE ^ NW 

U44U2540 

L INE 

255 

c 


04402550 

L I.NE 

256 


DO 227 I = 1,NFRGQ 

04402560 

L INE 

257 

227 

WLEAOI li = 0.0 

044025/0 

1 INE 

258 

C 


04402580 

L INE 

259 


XLW a XLW C DELTA 7 

04402590 

L INE 

260 


XUP =i XLW 

04402600 

L INE 

26 1 


ZETA = XO - XLW 

04402610 

L INE 

262 


ZSMZTE = ZSMZTE - DELTAZ 

04402620 

L INE 

263 

C 


04402630 

L INE 

264 


IF( RRTEST .EQ. 0.0 1 GO TO 33 0 

04402640 

L INE 

26 5 


RR - 0»5>>( SORT! ZETA**2 - ELS ) S SQRM ZETA*«2 ■* EUS ) 1 

04402650 

L INE 

266 


RK = RROFRTEST 

04402660 

LINE 

267 


ASSIGN 330 TO G03ACK 

044026 /0 

L INE 

263 


GO TJ 600 

044J2680 

L INE 

269 

330 

CONTINUE 

04402690 

L INE 

270 

C 


U4402 /CO 

L INE 

271 


CALL WVINT 

04402 /lU 

L IME 

272 

c 


04402 720 

L INE 

273 


ASSIG>) 340 TO G08ACK 

04402/30 

L INE 

274 


GO TO 800 

04402740 

L INE 

275 

340 

CONTINUE 

04402750 

L INE 

276 


DO 343 I = 1*NFRE0 

04f02 760 

L INE 

27 7 

34 5 

WLEADin = wLEAOm - SYM*SKA(n 

044027/0 

L INE 

276 

C 


04402780 

L INE 

279 


DO 350 J=1,NFREU 

04402790 

L INE 

280* 


F8Z =< -{ FREOI J) /BEE TA )*ZSMZT6 

044028U0 

L INE 

281 


CX IPT = CLiSI FB Z ) 

04402610 

L INE 

28 2- 


CXIPL = SIN( FHZ » 

04402820 

L INE 

233 


WTESI J I = WT£S( J » 

04'«U2830 

L INE 

284 


1 £ CNPLXI WLEAD(J»*(C,XRIJ)-CXIPR» , WLEADI 0) CX I( J ) -CX I P I» ) 

04402640 

L INE 

28 5 


CXR (J ) = CXIPR; 

04402850 

L INE 

28 6 


CX I(J J = CXIPI 

04402860 

L INE 

287 

350 

CQNTLNUE 

044U2870 

L INE 

238 

C 


044U2880 

L INE 

289 

C 

END LOOP ON LINE 

044Q28''iO 

L INE 

29 0 

360 

COM T EN UE ,, 

U44029CU 

L INE 

291 

C 


04402910 

L IN E 

292 

370 

CONTINUE " 

04402920 

L INF 

293 

C 


04402930 

L INE 

294 

c 

CHECK IF MIRROR IMAGE OF TRAILING EDGE LINE HAS INFLUENCE 

AND04402940 

L IME 

29 5 

c 

HAS NO r YE I UCEN CDNSIOERED. 

04402950 

L INC- 

296 

c 


04402960 

L INE 

297 


IF( .NOT, EMIRRO ) GO TO 380 

04402 9 /U 

L IN E 

298 


IF! ATL .LE. 0.0 1 GO TO 380 

0440 2980 

L INE 

29 9 

c 

FIND INFLUENCE OF THE MIRROR IMAGE OF THE T RAILING EDGE. 

04 40 29 90 

L INE 

300 

c 


044U3UC0 

L INE 

30 1 

c 

SET cMIRRO TO .FALSE. 'SC THAT WE DU NOF liRANtH HERE AGAIN 

04403010 

LINE 

302 


EM IRA- 3 = .FALSE. 

04 40 3020 

1. INE 

303 

c 


04403030 

L INF 

30 4 


DO 37 5 Ial,NFREO 

044U304U 


- 6 . 99 - 



IftKiiN&i PAQB Ja 


L INE 

20 5 

375 

WLEAOI 1) » 0.0 



0^403050 

L PvE 

306 

C 




04 0 3 9 60 

L Pi E 

307 


XLW ^ XI 3 > 



04-0 jJ (0 

L PPi 

30B 


XUP -a X( 41 



04403 J«U 

L INt 

309 


yiw a Y( 21 



Ot fOiOSU 

L I\ £ 

310 


YUP = Y( 1) 



044J3K0 

L INE 

311 


YO = YLO 



04403110 

L IIVE 

312 


ZD = 2L 



04403120 

L I\E 

313 


ZUZD = ZL2L 



04403 130 

1 INE 

314i 


TV = TV^^l3) 



04403140 

L INE 

315 


TW = TVW(4i 



044O3150 

L INE 

316 


SYM 3 SY'IK 



04403L60 

L INE 

317 


IF( F^TcST .tO. 0.0 ) GO TO 185 



04403170 

L INC 

318 


RK = KL*FkTEST 



04403180 

L INE 

319 


ASSIGN 135 TO GOBACK 



04403150 

L INE 

320 


GO TD 600 



04403200 

L IN E 

321 

C 




04403210 

L INb 

322 

380 

CONTINUE 



04403220 

L INE 

323 

C 




04403230 

L INE 

324 

c 

*•(£ ARE FINISHED CALCULATING 

WAKE EFFECT 


04403240 

L INE 

325 

c 

AND /OR INFLUENCE OF TRAILING 

EDGE OF A 

TRAILING EDGE 

ELEMENT 04403250 

L INE 

326 

c 

PUT WLEAD BACK TO WSAVE AND 

RETRUN 


04403260 

L INE 

327 

c 




04403270 

L INE 

328 


DO 390 I = l,NFREiJ 



04403280 

L INE 

329 

390 

tVLEAOI I J = WSA VE(I ). 



04403250 

L INE 

330 

C 




04403300 

L INE 

331 


RETURN 



04403310 

L IN E 

332 

c 




04403320 

1 T M c: 

ill 

r 






j j j 






L INE 

334 

c 




04403340 

L INE 

3 3 5 

600 

COKTI.NUE 



04 40 3 3 50 

L INE 

336 

C 

SECTION TO FIND NUMBER OF TFRMS TAKEN 

IN S ER I bS 

04403360 

L INE 

337 


IFl RK ,GT. 20.5 > GO TO 615 



044J33 70 

L INE 

338 


00 610 NTERM=6,NTMXX 



04403380 

L INE 

339 


IF( RK .LE. RKTERMINTERM) > GO TO 

620 


04403350 

L INE 

3 40 

6 10 

CON TI vIUE 



04403400 

L INE 

341 

6 15 

CONTINUE 



04403410 

L iNE 

342 


TEXCO = .TRUE. 



U440342U 

L INE 

343 


NCVFL = NCVEL C 1 



0440J430 

L INE 

344, 


NTFRM = NTMXX 



04403440 

L INE 

345 

6 20 

CON n.NUE 



04^03450 

L INE 

346 


NTERH = MINOI NTERM, NTMXX ) 



U44J346U 

L INE 

347 


IF( RK .GT, RKEX » RKEX = RK 



044034 10 

L INF 

348 


in NTER>1 .GT. NTMAX ) NTMAX = NTERiM 


04403480 

L INE 

349 

r 

GO TJ GU3ACK» I 145, 185, 330 ) 



04403450 

L 1 TkJ 

.5 y u 






L INE 

351 

c 




04‘,0 3 5 10 

L INE 

352 

c 




04403520 

L IN E 

353 

• 80 0 

CDNTLN UE 



04403530 

L INE 

354 

C 




04403540 

L INE 

355 


DO 810 I=1,NFRE0 



0440 3 550 

L INE 

356 

81C 

SKA( I.) = 0.0 



04403560 

L IN F 

357 

c 




044035/0 

L IN E 

358 


NTMl = MAXOI N TERM-l , 1 I 



04403580 

L INE 

359 


DO 82 0 J = 1,NTM1 



04403550 

L INE 

360 


SAVE = TV>^V(J> 0 TW*U(J) 



0440360U 

L INE 

361 


DO 820 1=1,.N"REQ 



04403610 

L INE 

362 


SKAII, ) = SKA II } C SAVE<-CF(I ,J): 



04403620 

L INE 

36 3 

820 

CONTINUE 



04403630 

L iNE 

36 4 

C 




04403640 

L IN E 

36 5 


IF! NTERM .EO. 1 ) GO TO GOBACK, 

( 150 , 190 , 

340 ) 

04403650 

L INE 

366 

c 




04403660 


- 6 . 100 - 


ttN'E 367 
LINE 368 
L IN!E 369 
LINE 3 70 
LINE 371 
LINE 372 
L INE 373 
LINE 374 
L IN E 37 5 
LINE 376 
LINE 377 
LINE 370 
L INF 379 
L INE 380 
LINE 39 1 
LINE 38 2 
LINE 383 
L IN E 384 
L INE 385 
LINE 386 
LINE 387 
LINE 38 8 
LINE 339 
LINE 390 
LINE 391 
LINE 392 
LINE 39 3 
L INE 394 
LINE 395 
LINE 396 
LINE 397 

/ENC REAC 


END CF JOB. 

43.1 SEC. 


830 


SaVF = TV*V(ViTcRM) C TN-l^Wl NTER!*) 
no 830 I=l,NrR£iJ 
SnL = SNAIl) 

Shall.) = Sham e save^^cfii 

ir-( .<CONV .GT. 1000 ) 30 TC J3u 

OIK = AdSI SKAII.) - SKL ) viL ' : 'V 

RERO = l.O 

IF( SKMI) .NE. 0.0 ) PERU = 0 1 K/ABS (S K A(I ) » 

IF( RERO .LT. 0. C5 ) GO TO “30 

IF! S\A(I) .EO. 0.0 .AND. DIh .LT, .E ). GO TO 330 
Nc HAVE .NOT CONVERGCO 
IF! KCONV ,Ei). a » WRITE! It>, 4009 ) 

KCUNV = KCONV & 1 

WRITE! 16, 4010 ) KC ON V , I RC , 1 1 N , NTER , F RE 0! I) ,S h A! I ) , S KL , RERO 

IF! KCONV .Lc. lO-JO i GO TO 830 

WR I TE! 16, 4011 I 

IFLUSH = 1 

CONTINUE 

GO T3 G03ACK, ( 150, 190, 340 ) 


U',s0 3 6 70 
U*t4'J 3 6 HO 
0<«n0i6SU 
0*,403 /CO 
04^0 3 7 10 
04 ,0 J 720 
04403 730 
04<,03 740 
0440 3 750 
04403 700 
04403 7 70 
U 4 40 3 780 
U440J 790 
04403800 
04403810 
04403820 
04403830 
04403840 
U44J3850 
04403 860 

: 04403870 

4009 FORMAT! IHl , 120!1H<=) // lOX, 85HTI+E VELOCITY INFLUENCE COMPUT AT 1004403880 

IN DID NOT CONVERGE FOR AT LEA6T ONE PAIR OF ELEMb.NTS // 15X, U44J389U 

2 3H1EC, 5X, 4HIInFL, 4X, 5HTEKKS, 5X, 9 HFRENUENCY , 8X, 5HF1NAL, 04403900 

3 12X, 0HPREVIOUS, 9X, BHRELATIVE / 15X, 4HELEM, 4X , 4HELFM^ 31X, 04403910 

4 5HV.ALUE, 12X, ShVALUE, 12X, 5HERR0R / ). U4403920 

4010 f^JRMATI III, 213, 19, 4E17.6 ) 04403930 

4011 FORMAT! til IX, 120!l-I*) / 75H WARNING - AT LEAST lOUJ V LLUC 1 04 40 3940 

ITY INFLUENCE COMPUTATIONS DIO NUT CONVERi,E. / 04403950 

2 54H CONVERGENCE TESTING HAS BEEN TERMI.NATED FOR THIS RJN. II ) 04403960 

END 04403970 
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DISPLAY . . 

.FIL E 

DECK 

A5 



L INe 

1 


SUBK3UTINE 

WRE7A< NrTt JMOUE,w. - 

WETAt 113) 

OAbUUOiO 

L INE 

2 


DIMENSION 

WETA (NET, 10) , 

WOETAtNET, lOI 

UA3U002U 

LINF 

3 


REWIND II3 



UAiOUU3U 

L INE 

A 


DO 30 

JM=l, JHCOE 


CAaOOUAO 

L INE 

5 


WR I TE (1131 

JM, NETt (WDETAd , JMI , 

1=1, NET), (WETAI I,JM), I=1,NET) 

U^buUUbO 

L INE 

6 

30 

CONTINUE 



U<,5UUU60 

L INE 

7 


END FILE 113 


UA30007D 

LINE 

a 


REWIND 113 



UAbUOUbO 

L INE 

9 


RETLR.N 



04b00090 

L INE 

10 


END 



DAbUUlCO 
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POOH 


CISPLAY.. 

.FILE 

DECK 46 


L INE 

1 


SUBROUTINE WRI TEQ (K.AROW, IZ, ANEW, NET) 

OA600U10 

L INE 

2 


DIMENSION AROWINETI, IZINET), ANEWINEH 

04600020 

L INE 

3 


common /K1112/ KST11,KST12 

OAouUUSU 

LINE 



COMMON /TAPE/ 19,110,111 

UAOJUU40 

L INE 

5 


NNZ=0 

04600050 

L INE 

6 


DO 10 0 1=1, NET 

04600060 

L INE 

7 


IF < AROWI n .EO. O.Oi GO TO 100 

046000)0 

L INE 

8 


NNZ = NNZCl 

U46UUUBU 

L INE 

9 


M = NNZ 

04600090 

L INE 

10 


IZ(M ) = I 

04G001UO 

L INE 

11 


ANEWIM ) = AROWI n 

04600110 

LINE 

12 

100 

CONTINUE 

04600120 

L INE 

13 


IFINNZ.EQ. OJ RETURN 

04600130 

L INE 

14 


CALL wRITZI 111 ,K,NNZ,I Z, ANEW) 

04600140 

L INE 

15 


KSTll =K 

04600150 

L INE 

16 


RETURN 

046UU160 

L INE 

17 


END 

04600170 
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L'ISPLAY...f ILE 


DECK 47 


LINE 1 SUPPJJTfNE wRITZ( Ill.K.NNZ, 

LINE 2 DIMENSION I Z( NN Z) , ANE NNZI 

LINE 3 WRITE nil) K,NNZ, IZ, ANEW 

LINE A BETIMN 

LINE 5 END 


IZi ANEW) GAZOQOlO 

U4/UDU2U 

U47UOU3U 

047UUU4U 

OAZOOOi>0 
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Original pack * ■ 

OP POOR QtTArjVV 


CISPLAV. ..FILE DECK 


L INE 

1 

SUERDUTINE 

L INE 

2 

DIMEN SION 

L INE 

3 

complex 

L INE 

4 

WR ITE( 1121 

L INE 

5 

200 CONTINUE 

L INE 

6 

RETURN 

L INE 

7 

END 


WRITZW ni2fK,NNZ,l£,rtrjEWJ 
I ZINNZ) 

ANEW! NNZ) 

KfNNZ t 1 Z .ANEW 


04dU0UI0 

OtBOOUZO 

UA800030 

OAUOUC<iO 

U^BUOU^U 

U<iBUUU6U 

U4B00070 




CISPLAY . . .FILE DECK A9 


L INE 

1 


SUBPGUTINE WTEPHT ( DEDT.NET, PHIW, IZ, IlZ.WTEi 

OA900010 

L INE 

2 


COMPLEX DEDTUIf PHIW(l), WTEdl 

UA9UUU20 

L INE 

■a 


DIMENSION IZUJ 

09900030 

L INE 

A 


COMMON /K1112/ KST11.KST12 

09900090 

L INE 

5 


KEL * 0 

0<«900050 

L INE 

6 


DO 300 IEL=l,NET 

09900060 

L INE 

7 


IFdEL .GT. KST12I GO TO 300 

099000/0 

L INE 

8 


IFIKEL.LT. lEU 

O99U0OBO 

L INE 

9 


IREAO (112) KEL. NNZ. (1 Z(1 I . 1=1. NNZ). ( WT E ( 1 1 . 1= 1. NNZ ) 

09900090 

L INE 

10 

20A 

IF(KEL.NE.IEL) GO TO 300 

09900100 

L INE 

11 


DO 200 M=1,NNZ 

09900110 

L INE 

12 


K= IZ(M) 

09900120 

LINE 

13 


I = lEL 

09900130 

L INE 

lA 


OEDT(l) = OEDTd) - WTE (M) ♦ PHIW(K) 

09900190 

L INE 

15 

200 

CONTINUE 

09900150 

L INE 

16 

300 

CONTINUE 

09900160 

L INE 

17 


REWIND 112 

09900170 

L INE 

18 


RETURN 

09900180 

L INE 

19 


END 

09900190 
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DISPLAY 


FILE 


DECK 50 


L INE 

1 


SUBROUTINE HVINY 



05000U10 

L INE 

2 

C 




05UJU02U 

L INE 

3 

C 

XO,YO COORDINATES OF RECEIVING 

PT. (CENTER OF 

REC. ELE. ) 

U5U0 0C30 

L INE 

A 

C 

XUP, YUP COORDINATES OF UPPER END 

OF LINE 


U5UJ0040 

L INE 

5 

C 

XL^t YLW COORDINATES OF LOwEk tN) 

OF LINE 


0500U050 

L INE 

6 

C 

ZD2D IS THE SOUARb OF THE DIFFERENCE OF THE REC 

AND INFL Z • S 

05UJU060 

L INE 

7 

c 

ZD DIFFERENCE BETWEEN Z' S 

OF INFLU. AND 

RECEIV. ELEM 

.05000070 

L INE 

8 

c 

V, W SIDE WASH AND UPNASH INTEGRALS 


05000080 

L INE 

9 

c 

NTERM NUMBER OF TERMS IN APPROXIMATION OF V AND W 

05000090 

L INE 

10 

c 




05000100 

L INE 

11 


REAL LI 



05U0U110 

LINE 

12 


DIMENSION G6TA(5), GC0F(5)t XX(3>» A3 

(3) 


05000120 

LINE 

13 


DIMEN SION H(31» 



05000130 

L INF 

14 


COMMON / EEW / XUP t YUP f XLWt YLW 



05000140 

L INE 

15 


COMMON / WVl / NTERMf V(30Jt W(30» 



05000150 

L INE 

16 


COMMON / WWl / XC.YO.ZD»ZDZO 



05000160 

LINE 

17 


DATA NGT / 5 / 



05000170 

L INE 

18 


DATA PI02 / 1.570796 / 



05000180 

L INF 

19 


DATA XXm, AGIDi XXl2»t AG(2», 

XXI3), AGI3) 

f 

05000190 

L IN E 

20 


« .9061798 4593 8663 9927976268782 t . J3 692688 5056 1890 8 75142 640407 1 

05000200 

L INE 

21 


<=.53346 531010 5683 091036314420 7, . 478&2H67049936646804129 15 1 48, 

U50U0210 

L INE 

22 


<■. OS, *8000000000000000000000000? . 5638888888888883888888889888 

/05000220 

L INE 

23 

c 




05000230 

L IN E 

24 

c 

SET UP CONSTANTS 



05000240 

L INE 

25 


ZUP =■ XO - XUP 



05000250 

L INE 

26 


ZLW = XO - XLW 



05000260 

L INE 

27 


EUP = YO - YUP 



05000270 

L INE 

28 


ELW * YO - YLW 



05000280 

L INE 

29 


2 ZUP = ZUP* ZUP 



050002<>0 

L INE 

30 


ZZLW - ZLW*ZLW 



05000300 

L INE 

31 


EEUP = EUP*EUP 



050UU310 

L INE 

32 


EELW = ELW*ELW 



05000320 

L INE 

33 


SLOPE = ( XUP-XLW) / I YUP-YLW) 



05000330 

L INE 

34 


ALPHA = ZLW - SLOPE*ELW 



05000340 

L INE 

35 


AA = ALPHA«ALPHA 



05000350 

L INE 

36 


TTUP = EEUP € ZD ZD 



05000360 

L INE 

37 


TTLW = EELW C ZD ZD 



05000370 

L INE 

38 


RRUP ■-! ZZLP - TTUP 



05000380 

L INE 

35 


RRLrt = ZZLW - TTLW 



05000390 

L INE 

40 


IF! RRUP .LT. 0.0 .OR. ZUP . LE. 0.0 

» RRUP =0.0 


05000400 

L INE 

41 


IF( RRLW .LT. 0.0 .OR. ZLW . LE. 0.0 

1 RRLW = 0.0 


05U00410 

L INE 

42 


RUP * SORT! RRUP I 



05000420 

L INE 

43 


RLW » SORT! RRLW ) 



05000430 

L INE 

44 


SS = SLUPE* SLOPE 



05000440 

L INE 

45 


TESTC = SS - 1.0 



05000450 

L INE 

46 


AMZ = AA C SS^ZDZD 



05000460 

L INE 

47 


ACZ = AMZ - ZOZD 



05000470 

L INE 

48 


SI GNU = SIGN! PI 02, EUP ) 



05000480 

L INE 

45 


SIGNL = SIGN! PI02, ELW ) 



05000490 

L INE 

50 


SZ2 = SLOPE* ZD ZD 



05000500 

L INE 

51 

c 

FO 



050JU510 

L INE 

52 


SORC = ABS( TESTC I 



05000520 

L INE 

53 


IF< SJRC .LT. O.OOi ) GO TO 20 



05000530 

L INE 

54 


SORC = SORT I SORC 1 



05UUU540 

L INE 

55 


SQACZ = SORT! ACZ » 



05000550 

L INE 

56 


IF( TESTC ,GT. 0.0 ) 30 TO 22 



05000560 


4 
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L INE 

57 

C 


C .LT. 0 ( TESTC = C ) CUMPUTE S2 

050005 ZO 

L INE 

58 



FU =- SIGNU 

U500U5hU 

LINE 

59 



IF( ^UP .GT. 0.0 I FU = •■"M ISLOP b»ZUP-EU PI/S OACZ 1 

U5U00590 

L INE 

60 



FL =-SlGNL 

U50U060U 

L INE 

61 



IF( ^LW .GT. 0.0 1 FL = A < ( 1 S LOP t +ZL n-ELk I/S UAC2 } 

05000610 

L INE 

62 



FO = -( FL - FL l/SURC <= 

05000620 

L INt 

63 



GO T3 30 

U500U63U 

L INE 

64 


20 

CONTINUE 

05000640 

L INE 

65 

C 


C = 0 

05000650 

L INE 

66 



FO = (RUP “ RLW) / { SLOPE- x'f- HA 1 

0:>00066U 

L INE 

67 



GO TO 30 

050006Z0 

L INE 

63 


22 

CONTINUE 

05000680 

L INE 

69 



FU = S0RC4RUP L SL0PE*2UP - EUP 

0500 0690 

L INE 

70 



FL = SOHC+RLW G SL0PE*/.LW - ELW 

05000/00 

L INE 

71 



IF( RLW .EQ, 0. 1 GO TO 26 

05000710 

L INE 

72 



IF< RUP ,EQ. 0. 1 GO TO 24 

O5O0OZHO 

L INE 

73 

c 


C ,GT. 0 NEITHER PUP NOH RLW IS ZERO 

05000730 

L INE 

74 



FO = ( ALOG(FU/FLI / SQRC 1 

05000740 

L IN E 

75 



GO TO 30 

05000750 

L INE 

76 

c 


C .GT. 0 RUP .E0,..0 

05000/60 

L INE 

77 


24 

CONTINUE 

050007/0 

L INE 

78 



FO = ( ALOGI AB SISQACZ/FLI 1 1 /SQRC 

U5UUU780 

L INE 

79 



GO TO 30 

U500U790 

L IN E 

BO 


26 

CONTINUE 

05000800 

L INE 

B1 



FO = ( ALOGI A3 SIFU/SQACZI 1 1 /SQRC 

05000810 

L INE 

82 

c 


FO HAS BEEN COMPUTED 

05000820 

L INE 

83 


30 

CONTINUE 

05000830 

L INE 

84 



FIND ALl I ALl IS CALLED LI IN THE NOTES 1 

05000840 

L INE 

85 



ALU = 0.0 

05000850 

L IN E 

86 



ALL = ZUP - RUP 

05000860 

L INE 

87 ' 



IF( RUP .GT. 0.0 .AND. ALL .GT. .16-5 1 

050008/0 

L INE 

88 



1 ALU = 0.5«AL0G( ( ZUPGRU PI / ALL 1 

0 500 08 80 

L INE 

89 



ALL » 0.0 

0 5000 8 90 

L IN E 

90 



AH = ZLW - RLW 

05000900 

LINE 

91 



IF! RLW .GT. 0.0 .AND. ALl .GT. . 1 E-5 I 

05000910 

L INE 

92 



1 ALL = 0.5 *ALDG( (ZLWGRLWI/ ALl 1 

, 05000920 

L INE 

93 



AL 1 = ALU - ALL 

05000930 

L INE 

94 

c 


FIND SI 

U50UU940 

L INE 

95 



SI = 0.0 

O5O0U95O 

L INE 

96 



IF! ZO ,E0. 0 1 GO TO 40 

05000960 

L INE 

97 



FL = ALPHA«ELW - SZZ 

050009/0 

L INE 

98 



SL = SORT! TTLW*ACZ 1 

05000980 

L INE 

99 



FU = ALPHA^EUP - SZZ 

05000990 

L INE 

100 



IFI RUP .EO, 0 1 GO TO 32 

05001000 

L IN E 

101 



SU = SORT! TTUP^ACZ 1 

05001010 

L INE 

102 



IFI RLW .EQ. 0 I GO TO 34 

05001.020 

L INE 

103 

c 


SI FOR RUP .GT. 0, RL . GT . 3 AND ZD ,N6. 0 

05001 030 

L INE 

104 



SI = ARSINIFU/SUI - ARSINIFL/SLI 

05001040 

L INE 

105 



GO TO 40 

05001050 

L IN E 

106 

3 

2 

CONTINUE 

U500I060 

L INE 

107 



SI = SIGN! PID2, FU I - ARSINIFL/SLI 

050010/0 

L INE 

108 



GO TO 40 

05001080 

L INE 

109 

34 

CONTINUE 

U5U01U90 

L IN 6 

110 



SI = ARSINIFU/SUI - SIGN! PI C2 »FL 1 

05001 100 

L IN £ 

111 

40 

CONTINUE 

05001110 

L INE 

112 

C 



05001120 

L INE 

113 

C 


F 1 A ND F 2 

05001130 

L INE 

114 

C 



0500 1140 

L INE 

115 



FI = IALPHA*Z0<'S1/AMZ) G SZZ^'ALl/AMZ 

05001150 

L INE 

116 



F2 = SLOPE*F 1 - ALl 

05001160 

L INE 

117 

C 



0500U /U 

L INE 

118 



Will = R UP>I^EUP/TTUP - RLW^ELW/TTLW - TESTC*FO C SS^Fl - 

SLDPt<‘F2 05001180 
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L INE 

119 


IF( NTERM .LE. 1 I GO TO 71 

05001190 

L INE 

120 

C 


U5UU120U 

L INE 

121 


W(2) « 

050U121U 

L INE 

122 


1 -0.5*( (ZUPeALPH4J*EUP*ALU - <ZLW£ALPHA|*ELW*ALL 

05001220 

L INE 

123 


2 - RUP«‘EOP f. RLW*EIK I - 0 . 5 * I A 4-3 .0 ♦T ES I C *Z DZ D) <'F0 

05001230 

L INE 

124 


3 - I l.5*SZZ-2. O'P'AAI *F1 G3,5*SZZ*F2 

0500124U 

L INE 

125 

C 


05001250 

L INE 

126 


IFI NTERM .LE. 2 1 GO TO 71 

05001260 

L INE 

127 

C 


05001270 

L INE 

126 


NHT * NTERM - 2 

05001280 

L INE 

129 


IWT = NTERM - 1 

05001290 

L INE 

130 

C 


05001300 

L INE 

131 

C 

FIND 5 PT. GAUSS-LEFENOPE POINTS AND COEFFICIENTS ( GET A, GCU F ) 05001 3 lU 

L INE 

132 


FI = 0.5*(EUP - ELWI 

05001320 

L INE 

133 


F2 = 0.5*IELU £ EUP) 

05001330 

L INE 

134 


DO 43 IG=li3 

05001340 

L INE 

135 


N = 6 - IG 

□5001350 

L IN E 

136 


FO = Fl*XX<IG» 

05U0136U 

L INE 

137 


GETAIN) * FO e F2 

05001370 

L INE 

138 


GETAI IGI = -FO £ F2 

05001380 

L IN E 

139 


GCOFI IGi = FlfAG(IG) 

05001390 

L INE 

140 

43 

GCOF(N) = GCOFdGJ 

05001400 

L INE 

141 

C 


05001410 

L INE 

142 

C 


05001420 

L INE 

143 


00 45 N=3, NTERM 

05001430 

L INE 

144 


V<N) = 0.0 

05001440 

L INE 

145’ 

45 

WCNI - 0.0 

05001450 

LINE 

146«r 

C 


05001460 

L INE 

147 

c 


0500 1470 

L INE 

148) 

c 

LOOP ON TERMS OF QUADRATURE 

05001480 

L INE 

149; 


DO 70 IG = l,NGT 

05001490 

L IN E 

ISO*' 

c 


05001500 

L INE 

151 


ETA * GETAI IGJ 

05001510 

L INE 

152 


ZETA = SLQPE*ETA £ ALPHA 

05001520 

L INE 

153 


IF( ZET4 .L£. 0.0 ) 30 TO 70 

05001530 

L INE 

154 


TTHH = ETA^ETA £ ZDZO 

05001540 

L INE 

155 


RR = ZETA*ZETA - TTHH 

0500 1550 

L INE 

156 


IF! RR ,LE. 0.0 » GO TO 70 

05001560 

L INE 

157 


COF = GCOFI IG) 

05001570 

L INE 

158 


RH = SORT! RR ) 

05001580 

L INE 

159 


FL = ZETA - RH 

05001590 

L INE 

160 


ALH = 0.0 

05U0160U 

L INE 

161 


IF! IFL/ZETA) ,GT. 1.E-6J ALH = 0.5*AL0GI IZETA£RH)/FL 1 

05001610 

L INE 

162 

c 

LOOP TO FIND NHT t = NTERMJ H TERMS 

05001620 

L INE 

163 


HI 1» = ZETAOALH - RH 

05001630 

L INE 

164 


DO 50 N=l,NHT 

05001640 

L INE 

165 


NH = N£1 

05001650 

L INE 

166 


N2 = 2*N 

05001660 

L INE 

167 


RH = RH*RR 

05001670 

L INE 

168 


HINHI = RH/tN2*tN2£l»l - I N2 -1 ) *TT HH*HI N)/ N2 

050J1680 

L INE 

169 

50 

continue 

05001690 

L INE 

170 

c 


0500 1 700 

L INE 

171 

c 

FIND CONTRIBUTION OF UPWASH FOR A GIVEN PT . I FUR A GIVEN IG) 

05001710 

L INE 

172 


DO 60 N=2tl VlT 

05001 720 

L INE 

173 


NW = N£1 

05001 730 

L INE 

174 


W(NR) = HiNH) - COF* I2*N-1) ♦( HIN) - 12 *t N-1 ) -1 1 *Z UZ D*HI N-1 ) ) 

05001 /40 

L INE 

175 

60 

CONTINUE 

05001750 

L INE 

176 

C 


05001760 

L INE 

177 

70 

CONTINUE 

05001770 

1 INE 

178 

C 


05001780 

L INE 

179 

c 


05001 790 

L INE 

180 

71 

CONTINUE 

05001800 
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L INE 

lai 

C 


05001810 

L INE 

182 


Vf 1) = 0.0 

05Uoit20 

L IAjE 

183 


V( 2) > 0.0 

0 500 1830 

L IN E 

184 

C 


05001540 

L INE 

185 

C 


05001850 

L INE 

186 

C 

IF 2D = 0, THERE IS NO SI DEWASH 

05001860 

L INE 

187 


IF( ZD ,E0. 0.0 ) RETURN 

U 5001 870 

L INE 

188 

C 


0500 1880 

L INE 

189 

c 

SECTION FOR SIDEWASH 

05001890 

L INE 

190 

c 


U50U1900 

L INF 

191 


vm = - 20«I RUP/TTUP - RLW/TTLW I 

05001910 

L INE 

192 


IF( NTERM .LE, 1 I GO TO 90 

05001920 

L INE 

193 


HU = ZUP*ALU - RUP 

05001930 

L INE 

194 


HL = ZLW*ALL - RLW 

05001940 

L INE 

195 


V( 2) = - Z0*( HU - HL 1 

05001950 

L INE 

196 


IFI NTERH .LE. 2 I GO TO 90 

05001960 

L INE 

197 


RSU * RUP 

O5U01970 

tINE 

198 


RSL = RLW 

0500 1980 

L INE 

199 

c 


05001990 

(. IN E 

200 


00 80 N = 2,IWT 

05002000 

L INE 

201 


NV = NLl 

05002010 

L INE 

202 


NH = N-1 

05002020 

L INE 

20 3 


N2 = 2*NH 

05002030 

L INE 

204 

c 

NOTE THAT H IS COMPUTED FOR NH * N-l 

05002040 

L INE 

205 


IF( RUP .EQ. 0.0 ) GO TO 74 

05002050 

L INE 

206 


R SU * RSL^RRUP 

05002060 

t INE 

207 


HU s RSU/IN2* <N2Sin - ( N2-1 1 ♦TTUP*HU/ N2 

05002070 

L INE 

208 

74 

CONTINUE 

05002080 

L INE 

209 


IF( RLW .EO. 0.0 ) GO TO 76 

05002090 

L INE 

210 


RSL = RSL*RRLW 

05002100 

L INE 

211 


HL = RSL/(N2«(N2£m - < N2 -11 ♦TTLW^HL/ N2 

05002110 

L INE 

212 

76 

CONTINUE 

0500 2 120 

L INE 

213 


V(NVI = - Z0*(2*N-1)*( HU - HL I 

05002130 

L INE 

214 

80 

CONTINUE 

U5002140 

L INE 

215 

C 


05002150 

L INE 

216 

90 

CONTINUE 

05002160 

L INE 

217 


RETURN 

050021 70 

L INE 

218 


END 

U500 2180 


origin AJ-I 

OF P*^X^R 


PAGFI- 


ATT,'kT 


sVnty' 


CISPLAY. . 

.FILE 

DECK 51 




L INE 

1 


SUBROUTINE ZF02( 2FUN, OZOX, X,Y,AI 



05100010 

LINE 

2 

G 

SUBROUTINE TO EVALUATE FUNCTION ( 

ZFUNI , 

AND DER IV AT IVfc 

( UZDX)051U0020 

L INE 

■a 


DIMEN SION X(l» ,Y(n » A (1) 



051U0030 

L INE 

4 


COMMON /ZFUNNY/ N,IEKF, 31, B2 , B3 , N»"UNMX 


05 100040 

L INE 

5 


COMMON /XYSCAL / XX, YY, XO, YC, BHBF, 

zzz. 

ITEST 

05100050 

L INE 

6 


DATA cPS/l.B-78/ 



U5100060 

L INE 

7 


XP * X0C6REF*XX 



05100070 

L INE 

8 


YP « YOCBREF*YY 



05100080 

LINE 

9 


ZFUN = BlCB2*XPeR3*YP 



05100090 

LINE 

10 


OZDX = B2 



05100100 

LINE 

11 


DO 1 1 = 1, N 



05100110 

L IN E 

12 


xpMxi = XP - xm 



05100120 

LINE 

13 


R2 = XPMXI*XPMXI C (YP-Y(I)I**2 



05100130 

L INE 

14 


R2PEP S = R2 C EPS 



05100140 

L INE 

15 


XXLOG = ALOG I R2PEPS I 



05100150 

L INE 

16 


ZFUN = ZFUN fi Am *R2* XXLOG 



05100160 

L INE 

17 


DZDX = DZDX E 2.0>*=Am»XPMXI*( XXLOG C 

R2/R2PEPS ) 

05100170 

L INE 

18 

1 

CONTINUE 



05100180 

L INE 

19 


RETURN 



05100190 

LINE 

20 


END 



05100200 


/ENC RE/iC 


ENC OF JOB. 

53.6 SEC. USED .015 HRS. CHARGED 49.937 HRS. REGAINING 


-6 . Ill- 


